Cut and paste VBA or copy and paste

[NewbieMike]

Hello, on a daily basis, I will have a random number of rows(it will always be A2:AD??) entered on "sheet1" and would like to either cut and paste or copy and paste that range to the first available row on "sheet2". I have been searching the forums all day and can't seem to find what I'm looking for. Can anyone help please? I appreciate any and all help!

 

[kasanari]

Hello, on a daily basis, I will have a random number of rows(it will always be A2:AD??) entered on "sheet1" and would like to either cut and paste or copy and paste that range to the first available row on "sheet2". I have been searching the forums all day and can't seem to find what I'm looking for. Can anyone help please? I appreciate any and all help!

A simple solution assuming there are no gaps in data would be (paste values also)
sub XXX ()

Sheets("sheet1").activate
Range("A2:AD2").select
Range(selection, selection.end(xlDown)).select

Selection.Copy

Sheets("sheet2").activate

range("A1").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end sub

hope this helps

 

[NewbieMike]

kasanari, I changed the end to paste to the first available cell on "Sheet2" but the rest worked beautifully!!! Thank you so much, you are awesome!!!

 

[kasanari]

kasanari, I changed the end to paste to the first available cell on "Sheet2" but the rest worked beautifully!!! Thank you so much, you are awesome!!!

Woops sorry! I read that as the first cell! Well I'm glad you got it!