data formating

Re: data formating

For the limited explanation you gave this should work for you, it's a little crude as i didnt have time to mess around with it but should work for you[vba]Sub Duplicate_Data()
Dim Rw As Long, i As Long
Rw = Range("H" & Rows.Count).End(xlUp).Row
For i = 1 To Rw Step 1
If Range("H" & i).Value > 0 Then
Range(Cells(i, 4).Address & ":" & Cells(i, 8).Address).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
i = i + 1
ElseIf Application.WorksheetFunction.CountA(Range("H" & i)) > 0 And Range("H" & i).Value = 0 Then
Range(Cells(i, 4).Address & ":" & Cells(i, 8).Address).Delete
i = i - 1
End If
Next i
End Sub[/vba]