Do this.

sub CopyToWorksheets()
i = 1 'starting row of cell containing data

sheets(1).select
with activesheet
do while .cells(i, 1) <> "" 'checks for end of data
i = i + 1
loop
range("A" & 1 "X:" & i).copy 'copy range  of data starting with cells
A1 to last row of column X
for n = 2 to sheets.count 'start with copying data to sheet 2, sheet
3, etc...
sheets(n).select 'select sheet to copy data into
range("A1").select
activesheet.paste
next n
sheets(1).select
range("A2").select
end with
end sub