a guest Jul 18th, 2019 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Dim iRow As Integer, iCol As Integer
- Dim oRng As Range
- Set oRng = Range("a1")
- iRow = oRng.Row
- iCol = oRng.Column
- If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
- Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
- iRow = iRow + 2
- iRow = iRow + 1
- End If
- Loop While Not Cells(iRow, iCol).Text = ""
- End Sub
RAW Paste Data