Copying selected cells from one sheet 1 to an empty row in sheet 2

[Ashp94]

I'm trying to figure out the code for copying selected cells from one sheet to an empty row in another sheet, this is what I have so far, but I cannot figure out how to make it so that it copys in next empty row, rather than replacing whats there

Range("A24:G24").Select
Selection.Copy
Sheets("Master Data").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

So I want the code to find the next empty row after A5, even if it gets to a50. I know this is possible as a previous spreadsheet of mine did that, but it's been a few years and I've forgotten, and no longer have that spreadsheet

 

[DanteAmor]

How about:
Change sheet1 to the name of the source sheet

Sub test()
  Sheets("Master Data").Range("A" & Rows.Count).End(3)(2).Resize(1, 7).Value = Sheets("Sheet1").Range("A24:G24").Value
End Sub

 

[Ashp94]

How about:
Change sheet1 to the name of the source sheet

Sub test()
  Sheets("Master Data").Range("A" & Rows.Count).End(3)(2).Resize(1, 7).Value = Sheets("Sheet1").Range("A24:G24").Value
End Sub

Hey, nah that's not working for me

 

[DanteAmor]

What doesn't work?
Send you an error?
Don't want to put the name of the sheet "Sheet1"?

If you are going to run the macro on the source sheet then just use this:

Sub test()
  Sheets("Master Data").Range("A" & Rows.Count).End(3)(2).Resize(1, 7).Value = Range("A24:G24").Value
End Sub

 

[Ashp94]

Th

What doesn't work?
Send you an error?
Don't want to put the name of the sheet "Sheet1"?

If you are going to run the macro on the source sheet then just use this:

Sub test()
  Sheets("Master Data").Range("A" & Rows.Count).End(3)(2).Resize(1, 7).Value = Range("A24:G24").Value
End Sub

That's working for me now, thank you so much!!!!

 

[DanteAmor]

You are welcome, thanks for the feedback.

 

[Ashp94]

You are welcome, thanks for the feedback.

Hey, sorry to be a pain. but for some reason despite working perfectly before now, an error of "Compile error expected end sub" is showing but I can't see why, any ideas?

 

[DanteAmor]

Is any line in the macro highlighted? what is that line
Check that the macro is complete, maybe some letter was deleted.