Copy and Paste Row from Sheet(1) to First Empty Row in Sheet(2)

Try the below code:

Dim FirstBlankCell As Range

    Sheets("Sheet1").Select
    Range("b6:r6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Set FirstBlankCell = Range("a" & Rows.Count).End(xlUp).Offset(1, 0)
    FirstBlankCell.Activate
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
On Error GoTo 0
    Set FirstBlankCell = Nothing
    End Sub