Sub copytovariablesheet()
With Sheets("sheet" & Range("a1"))
lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
'MsgBox lr
Range("a1:a10").Copy .Cells(lr, 1)
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Parker Jones" wrote in message
...
I need a formula that says something to the effect of:

IF the value in A1=2 THEN transfer (or show) A1:A10 to next available row
in
sheet 2
IF the value in A1=3 THEN transfer (or show) A1:A10 to next available row
in
sheet 3
etc.

I need the information in the row to transfer to the next available row,
and have no idea how to do it.

IF(A1=2,(?????),IF(A1=3,(?????),"bad"))

????? needs to transfer A1:A10 to next available row in another sheet

If you can help,