Sub Testing()
Dim TarSht As Worksheet, LastRow As Integer
Dim MyRng As Range
Set TarSht = ActiveSheet

With ThisWorkbook.Sheets(1)
    
    If Not .Cells(2, 1) = Empty Then
        LastRow = .Cells(1, 1).End(xlDown).Row
    Else
        End
    End If

    Set MyRng = .Range(.Cells(2, 1), .Cells(LastRow, 1))
    
End With

With TarSht
    
    TarSht.Range(MyRng.Address).Value = MyRng.Value
    TarSht.[c2].Select
    
End With

End Sub

Sub Testing()
Dim TarSht As Worksheet, LastRow As Integer
Dim MyRng As Range
Set TarSht = ActiveSheet

With ThisWorkbook.Sheets(1)
    
    If Not .Cells(2, 1) = Empty Then
        LastRow = .Cells(1, 1).End(xlDown).Row
    Else
        End
    End If

    Set MyRng = .Range(.Cells(2, 1), .Cells(LastRow, 1))
    
End With

With TarSht
    
    .Range(MyRng.Address).Value = MyRng.Value
    .[c2].Select
    
End With

End Sub