Need macro button to copy and paste special values into next available blank row

[AngelaG]

Hi All,
Totally new to VBA but I need my macro button to paste special the values from one data selection in one worksheet (cells L7:N7), into the next available blank row in a separate worksheet (columns B:E).

I've got thus far with the below code but obviously this just copies and pastes into the same fields as oppose to the next blank row.

Help would be massively appreciated:

Angela

Sub RoundedRectangle5_Click()
'
' RoundedRectangle5_Click Macro
'

'
Range("L7:N7").Select
Selection.Copy
Sheets("Follow Up Screen").Select
Range("B3:E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D12").Select
Sheets("Workleads Screen").Select
End Sub

 

[VoG]

Hi. Try this

Sub RoundedRectangle5_Click()
'
' RoundedRectangle5_Click Macro
'

'
Range("L7:N7").Copy
Sheets("Follow Up Screen").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Sheets("Workleads Screen").Select
End Sub

 

[AngelaG]

Fantastic thanks very much!