Guardar data a otra hoja mediante Command Button

Hola Elsa.
Puse en practica tu código para trasladar valores de una celda de una hoja a otra mediante un Command Button, ahora mi pregunta es la siguiente: Tengo una Orden de Compra hecha en excel, que contiene No de Orden, Fecha de Compra, términos de compra, etc como parte del encabezado, ahora en el cuerpo de la oden tengo Item, Descripción, Cantidad, Precio Unitario y Total, pues en esas filas voy ingresando datos, ahora la pregunta es la siguiente: Como hacer para que las filas siguientes me graben a la otra hoja en excel o una forma de incrementar automáticamente las celdas mediante la variable filalibre
Private Sub salvar_Click()
filalibre = Sheets("DATA").Range("A65536").End(xlUp).Row + 1
Linea1
Range("A16").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Sheets("DATA").Cells(filalibre, 1) = ActiveSheet.Range("H4")
Sheets("DATA").Cells(filalibre, 2) = ActiveSheet.Range("H5")
Sheets("DATA").Cells(filalibre, 3) = ActiveSheet.Range("H7")
Sheets("DATA").Cells(filalibre, 4) = ActiveSheet.Range("H8")
Sheets("DATA").Cells(filalibre, 5) = ActiveSheet.Range("A11")
Sheets("DATA").Cells(filalibre, 6) = ActiveSheet.Range("A16")
Sheets("DATA").Cells(filalibre, 7) = ActiveSheet.Range("B16") --> que pase a B17,B18...
Sheets("DATA").Cells(filalibre, 8) = ActiveSheet.Range("D16")
Sheets("DATA").Cells(filalibre, 9) = ActiveSheet.Range("E16")
Sheets("DATA").Cells(filalibre, 10) = ActiveSheet.Range("F16")
Sheets("DATA").Cells(filalibre, 11) = ActiveSheet.Range("H16")
filalibre = filalibre + 1
Loop
End Sub
Saludos desde Honduras y gracias por compartir tu conocimiento
Atentamente. Lessner