MOVE DATA

[Moeses]

Hi,

I am trying to move an entire row from sheet A (Form) to sheet B (Master)
But for some reason, I am getting error # 1004 on line 2 below.
Please help? thank you


Sub Move_data()

Rows.Range("B3:R3").Copy
Worksheets("Master").Range("A3:Q3").End(xlDown).Offset(1, 0).EntireRow.Insert
Worksheets("Form").Activate
Worksheets("Form").Range("B3:R3").ClearContents
Worksheets("Form").Cells(3, 1).Select
Application.CutCopyMode = False

End Sub

 

[Fluff]

What is the exact error message?

 

[Moeses]

What is the exact error message?

the message is:

 

[Fluff]

Do you have anything in col A below A3?

 

[Moeses]

No, the cell in Col A cell A3 on both sheets are empty.

 

[Moeses]

... so the goal is to move the entire row from the first sheet labeled FORM to the second
sheet labeled MASTER.

 

[Fluff]

The entire row, or just columns B:R?

 

[Moeses]

When I click on "post data" the content of B3:R3 are to be moved to sheet2 starting at A2:Q2.

 

[Fluff]

Ok, how about

With Sheets("Form")
   .Range("B3:R3").Copy
   Worksheets("Master").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
   .Range("B3:R3").ClearContents
End With
Application.CutCopyMode = False

 

[Moeses]

Thank you so much it worked perfectly... I cannot thank you enough.