Copy rows

[scott micklo]

Hi

I am looking, based upon a number in cell B2, to copy the entire row, off my source sheet, on to the next available row a sheet that was named in B2,

Thanks

[LeoTaxi]

For the active row

Sub test()
my_sheet = Range("B2")
ActiveCell.EntireRow.Copy Sheets(my_sheet).Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

Kind regards
Leo

[scott micklo]

Leo

Thanks so much for the assistance. One more question-- how do I get this to run for all values listed in B2? There are currently 32 different values

Thanks

scott

[LeoTaxi]

I thought it was a sheet name in B2
and the code copy the active row to that sheet

and wat you meen by 32 different valeus ? all in B2 ?


Kind regards