Copiar la ultima celda en la que se escirbio a otro libro, aun que escriba en las celdas b7,k7?

Quiero que lo ultimo que escriba a partir del renglón b7, k7 se copie en otro libro(con una macro que cree, pero solo conseguí como hacerlo en la misma hoja. La hoja a la que se pegue la información ya estaría predefinido, pero la hoja me gustaría pedir un inputbox donde me diga el nombre de la hoja, para que no haya problema de que después sea mucha información en la hoja, ¿alguien sabría como o si se puede hacer?.

Sub fila()

'selecciona ultima fila y la copia
Range("A1048576").End(xlUp).Offset(0, 0).Select
ActiveCell.EntireRow.Copy
'busca la fila siguiente y pega las formulas Range("A1048576")
Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'selecciona la fila que copio y la pega con valores

Range("A1048576").End(xlUp).Offset(-1, 0).Select
ActiveCell.EntireRow.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub