Macro copiar ultima fila hoja1 a hoja 2

Utilizo 2 libros con la misma informacion primer libro llamado facturacion clik en boton me abre un formulario que me ingresa datos en ultima fila vacia de columnas A, B, C, D, E en la hoja1 llamada (facturacion) es posible que este boton me envie la informacion capturada a mi segundo libro llamado liquidacion en hoja1 llamada iva debito fiscal y pegue en ultima fila vacia y asi sucesivamente

Esta es la macro situada en thisworkbook de antemano gracias por sus atenciones saludos manuel galvan

Nota solo utilizo el boton captura para ingresar datos el que menciona cobranza no

Sub Dosomething()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode
Next
Application.ScreenUpdating = True
End Sub
Sub RunCode()
'your code here
End Sub
Private Sub CommandButton11_Click()
'Dimensiono variables
Dim fila, conta As Integer
Dim dato As Currency
conta = 0
fila = 5

'Variable dato es igual al valor del textbox12
dato = TextBox12

'Realizo bucle para buscar datos, encontrado se aplica el formato
While Sheets("FACTURACION").Cells(fila, 4) <> emtpy

While Sheets("COBRANZA").Cells(fila, 4) <> emtpy

If Sheets("FACTURACION").Cells(fila, 4) = dato Then
If Sheets("COBRANZA").Cells(fila, 4) = dato Then

Sheets("FACTURACION").Range(Cells(fila, "D"), Cells(fila, "F")).Select

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
TextBox1 = ActiveCell.Offset(0, 2).Value
Else
conta = 1
End If
fila = fila + 1
Wend
'Si no encontró el dato sale un mensaje
'If conta = 1 Then
' MsgBox ("Busqueda Exitosa " & dato), vbInformation, "AVISO"
'End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox12 = ""
TextBox1 = ""
TextBox12.SetFocus
End Sub

Private Sub TextBox1_Change()

End Sub