Please try the below....this is working....
Sub Macro1()
Dim prevRow As Integer
Dim currentRow As Integer
Dim strTemp As String
Dim pasteColumnIdx As Integer
prevRow = 2
currentRow = prevRow + 1
pasteColumnIdx = 8
Do While Cells(currentRow, 1).Text <> ""
If Cells(prevRow, 1).Text = Cells(currentRow, 1).Text Then
Range(Cells(currentRow, 4), Cells(currentRow, 7)).Select
Selection.Cut
Range(Cells(prevRow, pasteColumnIdx), Cells(prevRow, pasteColumnIdx)).Select
pasteColumnIdx = pasteColumnIdx + 4
ActiveSheet.Paste
strTemp = CStr(currentRow) + ":" + CStr(currentRow)
Rows(strTemp).Select
Selection.Delete Shift:=xlUp
Else
prevRow = prevRow + 1
currentRow = currentRow + 1
pasteColumnIdx = 8
End If
Loop
End Sub