Can you try the below code and see if that helps you out:
Code:
Private Sub CommandButton1_Click()
Dim C As Long
Dim Cell As Range
Dim NextRow As Long
Dim Rng As Range
Dim EntryWks As Worksheet
Dim DBWks As Worksheet
C = 1
Set EntryWks = Worksheets("Sheet1")
Set DBWks = Worksheets("Sheet2")
Set Rng = EntryWks.Range("B6:ad6")
NextRow = DBWks.UsedRange.Rows.Count
NextRow = IIf(NextRow = 1, 1, NextRow + 1)
For Each RA In Rng.Areas
For Each Cell In RA
C = C + 1
DBWks.Cells(NextRow, C) = Cell
Next Cell
Next RA
End Sub
Bookmarks