Find 0 in column and paste text

[aadhyaa]

Hey guys !

I have this VBA code and I need it to paste certain data from one sheet to another whenever it finds a blank cell in coulmn F starting from F12.

The code is running but its working in column A and not F.
Please guide me what to do. Below is the code -

Sub ProductList()


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

 

[Joe4]

Re-posted here: https://www.mrexcel.com/forum/excel-questions/1034818-macro-find-empty-cell-copy-data.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).
If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.