Macro to find empty cell and copy data

[aadhyaa]

The code below copies data just as I want, but starting from A1. I want it to start from F12 and then copy in the next empty cell in F column everytime I run the macro. please help !

Sub ProductList()

Sheets("Data").Select
Range("C5:D48").Select
Selection.Copy
Sheets("Sales").Select
If Application.WorksheetFunction.CountA("A:A") = 0 Then
Selection.PasteSpecial Paste:=xlPasteValues
Else
On Error Resume Next
Columns(1).SpecialCells(xlCellTypeBlanks)(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
If Err <> 0 Then
On Error GoTo 0
[F65536].End(xlUp).Select
End If
On Error GoTo 0
End If
End Sub

 

[Vinoth_Shob]

dim lrow as long

lrow = sheets("Sales").range("F" & rows.count).end(xlup).row
sheets("Sales").range("F" & lrow +1).pastespecial xlpastevalues

 

[aadhyaa]

Hello sir,

Could you please guide me what part of the code to replace with the code you have given ?

 

[Vinoth_Shob]

paste the code after copying data from sheet
Sheets("Data").Select
Range("C5:D48").Select
Selection.Copy

 

[aadhyaa]

Got it working. Thank you so much ! :D