Copy from one sheet to another

[Sharid]

In Sheet3 "FB URL Filter" in Column AJ I have URLs, I need to copy and paste these URLS into Sheet2 "Url List"

When I click on the command button, I want it to copy the urls upto the last row of data in AJ and paste it into Sheet 2 Column A2

I have been strugling on this one,

 

[Logit]

.
This is one of many methods :

Option Explicit


Sub Copy_n_Paste()
On Error Resume Next


    Dim rng As Range, destRow As Long
    Dim shtSrc As Worksheet, shtDest As Worksheet
    Dim c As Range
        
    With Application
        .ScreenUpdating = False
        .DisplayStatusBar = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    Set shtSrc = Sheets("Sheet3")    'source sheet
    Set shtDest = Sheets("Sheet2")    'destination sheet
    destRow = 1 'start copying to this row


    'don't scan the entire column...
    Set rng = Application.Intersect(shtSrc.Range("AJ:AJ"), shtSrc.UsedRange)
    For Each c In rng.Cells
        If c.Value <> "" Then
            
            c.Copy shtDest.Cells(destRow, 1)
          
            destRow = destRow + 1


        End If
    Next
    shtDest.Range("A1").Value = "Url List"
    
    With Application
        .ScreenUpdating = True
        .DisplayStatusBar = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
End Sub

 

[Sharid]

Thanks this code is super,

I have placed the file here. Has a few issues if anyone can take a look. It would help a lot

https://www.mrexcel.com/forum/gener...ther-questions/1098168-skip-urls-captcha.html