Sub test1()
Dim c As Range
Application.ScreenUpdating = False
Set c = Range("A2")
Do While c(2, 1) <> ""
If c(2, 1) = c Then
'If IsEmpty(Cells(c.Row, 3)) Then
If Cells(c.Row, 256).End(xlToLeft)(1, 2).Column = 3 Then
c.Offset(0, 1).Copy Cells(c.Row, 256).End(xlToLeft)(1, 2)
End If
c.Offset(1, 1).Copy Cells(c.Row, 256).End(xlToLeft)(1, 2)
c(2, 1).EntireRow.Delete
Else
Set c = c(2, 1)
c.Offset(0, 1).Copy Cells(c.Row, 256).End(xlToLeft)(1, 2)
End If
Loop
Rows(1).Delete
Application.ScreenUpdating = True
End Sub