Macro Tomar valor de una fila de una Hoja a otra

Saludos estimados expertos, Gracias de antemano ya que siempre están prestos a suministrar ayuda y soluciones, necesito crear una macro que me permita cargar los valores de la última fila de una Hoja B01 (Columna A:H) a otra Hoja Temporal (Columna A:H).
Tengo esto:
Private Sub PasarValor()
uf = Sheets("B01").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Sheets("Temporal").Range("A" & uf) = Sheets("B01").Range("A" & uf)
Sheets("Temporal").Range("B" & uf) = Sheets("B01").Range("B" & uf)
Sheets("Temporal").Range("C" & uf) = Sheets("B01").Range("C" & uf)
Sheets("Temporal").Range("D" & uf) = Sheets("B01").Range("D" & uf)
Sheets("Temporal").Range("E" & uf) = Sheets("B01").Range("E" & uf)
Sheets("Temporal").Range("F" & uf) = Sheets("B01").Range("F" & uf)
Sheets("Temporal").Range("G" & uf) = Sheets("B01").Range("G" & uf)
Sheets("Temporal").Range("H" & uf) = Sheets("B01").Range("G" & uf)
End Sub
recopilado de una página la cual quise adaptar pero no me
funciona, por favor su orientación
Gracias