Copy and Append data to another sheet

Hi all,

I'm trying to copy and append rows from multiple sheets to one main overview sheet. The VBA underneath works, but if the script executes the second sheet, it starts at the first row. So the rows from the first sheet are overwritten. Can anyone help to get the rows appended from the second, thirt, fourth etc ?

Thanks

------------------------------------------------------------------------------------------

Sub CopySheet_Sheet1()

 Dim bottomL As Integer
    bottomL = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row: x = 1

    Dim c As Range
    For Each c In Sheets("Sheet1").Range("A6:A" & bottomL)
        If c.Value >= "1" Then
            c.EntireRow.Range("C1:D1:E1:F1:G1:H1:I1:J1:K1:L1:M1:N1:O1").Copy
            Worksheets("TotalSHeet").Range("A" & x + 1).PasteSpecial xlValues
            Application.CutCopyMode = False
            x = x + 1
        End If
    Next c

End Sub

-------------------------------------------------------------------------------------------