data formating

[pmugagga]

I have columns A to H
If column H for any row is greater than 0, i want data from column D till H for that row to be inserted below the row

e.g.


Sample data:
A 1 2 3 A 1 2 0
B 1 2 4 B 2 2 3
C 1 2 3 C 2 2 6
D 1 2 7 D 1 2 0

desired output:
A 1 2 3
B 1 2 4
B 1 2 3
C 1 2 3
C 2 2 6
D 1 2 7

[ragulduy]

Sub Data_Format_Macro()
Application.ScreenUpdating = False
Dim count
count = 1
Do Until Range("A" & count) = ""
    If Range("H" & count) > 0 Then
        Range("E" & count & ":H" & count).Cut
        Range("A" & count + 1 & ":D" & count + 1).Insert shift:=xlDown
    Else
        Range("E" & count & ":H" & count).Cells.Clear
    End If
    count = count + 1
Loop
Application.ScreenUpdating = True
End Sub