Seleccionar ultima celda con datos y coopiarla

[kloxtnx]

Buenas tardes, de abte manos muchas gracias a la comunidad por la ayuda

 

quisiera seleccionar la ultima celda con datos y copiarla para posteriormente pegarla en una hoja nueva, este es mi codigo 

 

Sub Copiar_Valores_Contabilidad()
        
        
        Sheets("Extraer_Rutas").Select
        
        
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        ActiveSheet.Range("A" & i).Select
        Selection.Copy
        
        Next
        
        Sheets("Rutas_Fs").Select
        ActiveSheet.Range("A2").Select
        ActiveSheet.Paste
        
       
       
        
        End Sub

 

pero lo que hace el codigo es que me selecciona el ultimo dato y lo pega  y quiere que tome es toda la seleccion de datos, agradezco su ayuda

[Antoni]

Sub Copiar_Valores_Contabilidad()
With Sheets("Extraer_Rutas")
   .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("Rutas_Fs").Range("A2")
End With
End Sub

 

[kloxtnx]

Sr Antoni muchas gracias!

[kloxtnx]

don Antoni de ante muchas gracias, este código también sirve para cuando los rangos están filtrados?