RE: $$Excel-Macros$$ help required 4

This Procedure Should be Like This : Sub InsertRow() For x = 1 To Range("A65536").End(xlUp).Row * 2 If Range("A" & Trim(Str(x))).Value <> "" And Range("A" & Trim(Str(x))).Offset(1, 0).Value <> "" Then Application.StatusBar = "Inserting Rows on Row : " & Trim(Str(x + 1)) Range("A" &

RE: $$Excel-Macros$$ help required 4

This Procedure Should be Like This : Sub InsertRow() For x = 1 To Range("A65536").End(xlUp).Row * 2 If Range("A" & Trim(Str(x))).Value <> "" And Range("A" & Trim(Str(x))).Offset(1, 0).Value <> "" Then Application.StatusBar = "Inserting Rows on Row : " & Trim(Str(x + 1)) Range("A" & Tri