Run-time error 1004 - Application-defined or object-defined error

Welcome to the forum.

What line generates the error?

Gotta go. Try this:

Sub FormatTable()
    Dim cell    As Range

    For Each cell In Sheets("Sheet1").Range("A2", Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp))
        If IsEmpty(cell.Value) And _
           IsEmpty(cell.Offset(1, 0).Value) And _
           IsEmpty(cell.Offset(2, 0).Value) And _
           IsEmpty(cell.Offset(3, 0).Value) Then
            Range("A1:H2").Copy Destination:=cell.Offset(1)
            cell.Offset(-1, 0).Font.Bold = True
            With cell.Offset(5, 0).CurrentRegion.Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
        End If
    Next cell
End Sub