Help to adjust this code slightly!

Hello,

I have this code,

Sub IMPORT()
Dim NextRow As Long

Sheets("New & Renewals").Range("A4:D4").Copy

NextRow = Sheets("Approved & Completed").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("Approved & Completed").Range("A" & NextRow).PasteSpecial Paste:=xlPasteValues

End Sub


The part in bold "A4:D4" i want this to actually be what the User has currently highlighted, so in other words what the user has currently selected on the worksheet.

Thanks.

.