It will copy the first line correctly, but try to add again and it spits up.


Private Sub CommandButton1_Click()
Dim lastrow As Long

Let lastrow = Sheets("Load Builder").Range("B6:I6").End(xlUp).Row
If lastrow < 2 Then
Let lastrow = 2
Else
Let lastrow = lastrow + 1
End If

ActiveSheet.Range("B6:I6").Copy
Sheets("Load Builder").Cells(lastrow, 2).PasteSpecial xlValues
ActiveSheet.Range("B6:I6").ClearContents

End Sub