I am confused of your requirements.
anyhow keep the original data safely somewhere
your version is excel 2007
save the file as xlsm file(macro enable file )
Then
experiment with this macro (modify macro if necessary). if this is what you want confirm
Sub test()
Dim j As Integer, r As Range
For j = 2 To 4
With Worksheets("sheet" & j)
Set r = Range(.Range("A2"), .Range("A2").End(xlDown).End(xlToRight))
r.Copy
Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial
End With
Next j
End Sub
Bookmarks