Can't access the image.
Try using the HTML Maker in my tag..to post a SMALL sample of your data, and what you need done !
Sub MM1()
Dim lr As Long, r As Long, x As Long, ns As Worksheet
Set ns = Sheets("Sheet1")
lr = ns.Cells(Rows.Count, "A").End(xlUp).Row
x = 0
For r = 2 To lr
If ns.Range("A" & r).Value <> "" Then x = x + 1
If ns.Range("A" & r).Value = "" Then
Sheets.Add After:=Sheets(Worksheets.Count)
ns.Rows(r - x & ":" & r).Copy
ActiveSheet.Paste
x = 0
End If
Next r
End Sub
MAybe this
Code:Sub MM1() Dim lr As Long, r As Long, x As Long, ns As Worksheet Set ns = Sheets("Sheet1") lr = ns.Cells(Rows.Count, "A").End(xlUp).Row x = 0 For r = 2 To lr If ns.Range("A" & r).Value <> "" Then x = x + 1 If ns.Range("A" & r).Value = "" Then Sheets.Add After:=Sheets(Worksheets.Count) ns.Rows(r - x & ":" & r).Copy ActiveSheet.Paste x = 0 End If Next r End Sub
Are you copying from the sheet named "Sheet1" AND Column "1" ??