Check this one.
Sub PW()
Dim lc As Integer
For i = 4 To 58
If Sheets("Data").Cells(i, Columns.Count).End(xlToLeft).Column + 1 > lc Then lc = Sheets("Data").Cells(i, Columns.Count).End(xlToLeft).Column + 1
Next i
Sheets("Input").Range("D4:D58").Copy Sheets("Data").Cells(4, lc)
Sheets("Input").Range("D6:D58").ClearContents
Sheets("Input").Range("D4").ClearContents
If Sheets("Data2").Cells(i, Columns.Count).End(xlToLeft).Column + 1 > lc Then lc = Sheets("Data2").Cells(i, Columns.Count).End(xlToLeft).Column + 1
Sheets("Input2").Range("D4:D58").Copy Sheets("Data2").Cells(4, lc)
Sheets("Input2").Range("D6:D58").ClearContents
Sheets("Input2").Range("D4").ClearContents
If Sheets("Data3").Cells(i, Columns.Count).End(xlToLeft).Column + 1 > lc Then lc = Sheets("Data3").Cells(i, Columns.Count).End(xlToLeft).Column + 1
Sheets("Input3").Range("D4:D58").Copy Sheets("Data3").Cells(4, lc)
Sheets("Input3").Range("D6:D58").ClearContents
Sheets("Input3").Range("D4").ClearContents
End Sub
Is this you want ?
Bookmarks