Macro: Coding Macro to Select, Cut and Paste Row from one sheet to another (Excel 2010)

[Sppinner]

Hello! I am needing to code a macro that can select a row of information, cut it and then paste it into a different (already labeled) sheet. To elaborate I would like to select cut the information from "Sheet 1" and then paste it into "Sheet 2" in an identical format without pasting over any rows that are already present. To give an example, I would like to select and cut the following row: [TABLE="width: 500"]
<tbody>[TR]
[TD]Name
[/TD]
[TD]Address
[/TD]
[TD]Phone Number
[/TD]
[TD]Male/Female
[/TD]
[/TR]
[TR]
[TD]Simpson, OJ
[/TD]
[TD]123 Glove Fit Road
[/TD]
[TD](110) 495-4830
[/TD]
[TD]Male
[/TD]
[/TR]
</tbody>[/TABLE]
And then paste it into a different sheet so that it looks like this:[TABLE="width: 500"]
<tbody>[TR]
[TD]Name
[/TD]
[TD]Address
[/TD]
[TD]Phone Number
[/TD]
[TD]Male/Female
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Winehouse, Amy
[/TD]
[TD]423 Rehab Cres.
[/TD]
[TD](375) 836-8463
[/TD]
[TD]Female
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Brown, James
[/TD]
[TD]395 Feel Good Way
[/TD]
[TD](576) 846-3976
[/TD]
[TD]Male
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Bonds, Barry
[/TD]
[TD]923 Roid and Run Street
[/TD]
[TD](458) 747-4856
[/TD]
[TD]Male
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Simpson, OJ
[/TD]
[TD]123 Glove Fit Road
[/TD]
[TD](566) 846-4854
[/TD]
[TD]Male
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Sppinner]

My apologies for the table format. In the spreadsheet I would have the cell borders visible

 

[kevatarvind]

hi and welcome to Mr Excel Board
something like below ( it will cut activerow and paste to sheet 2 )

Sub Test()
ActiveCell.EntireRow.Cut Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub

 

[Sppinner]

Thanks Keva! It worked perfectly! In regards to your code, I understand what most of it is saying but I am a bit unsure about what the "End.(x1Up) and Offset (1,0)" functions actually mean. Would you be ok with elaborating them for me? I'm new to Macros and am trying to learn as much as I can!

 

[kevatarvind]

"End(Xlup)" means Range("A" & Rows.Count) = A and how many rows in excel sheet suppose its 2007 and later 1048576 so Range("A1048576") select and from that to go up and when found and nonblank cell then stop so suppose nonblank cell is A11 so it will select A11 but i want to paste data in A12(next blank cell) so offset (1,0) means that select row A12 if you put there offset(2,0) it will select A13

if you want to learn more then make one test workbook and make changes in code and see what happen thats better to learn

Hope you understand this

 

[Sppinner]

Ok I understand how it all works. Thanks again for the help I really appreciate it!