Coppy an undefined number of cells from one sheet to another

Hello!

I am trying to create a macro in 2003 where I can save an undefined number of filled cells in sheet 1 to a seperate location, and with the click I will move to sheet 2, then the same is needed for sheet 2 but to save the data with the sheet 1 data in the consolidated sheet. However all sheets use dropdown boxes.

is it possible to use offset / vlookup? to state where the selection of the data ends and where it needs to be coppied to?

If any one can help I would be very grateful.

Thanks.

Please read thew Forum Rules & use the Edit button to change your Thread's Title

I have now locked your duplicat post. I strongly recommend that you read the Forum Rules & follow them if you want free help

Can any one help?

Private Sub CommandButton8_Click()
Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set SourceRange = Sheets("Luggage").Range("A11:G11")
Set DestSheet = Sheets("Data Base")
Lr = DestSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set DestRange = DestSheet.Range("A" & Lr + 1)
SourceRange.Copy DestRange
With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub