Visual Basic: Copiar Rangos de celdas entre hojas

Private Sub CommandButton1_Click()

'Copiar un rango de celdas'

Worksheets("TABLA_1").Range("a1", "e5").Value = Worksheets("TABLA_2").Range("a1", "e5").Value

'Copiar toda una linea de celdas'

Worksheets("TABLA_1").Range("6:6").Value = Worksheets("TABLA_2").Range("1:1").Value

'Copiar toda una columna de celdas'

Worksheets("TABLA_1").Range("A:A").Value = Worksheets("TABLA_2").Range("B:B").Value

End Sub

N.B.: TABLA_1 y TABLA_2 son las etiquetas de las tablas