amending code copy data from sheet to multiple without repeating

[maghari]

hello
I have this code works very well , but it repeats data continuously I would add line code just update old data if is changed and if there is a new data copy under old data

Sub CopyRows()    
Dim bottomD As Integer
    bottomD = Range("b" & Rows.Count).End(xlUp).Row
    Dim c As Range
    Dim ws As Worksheet
    For Each c In Sheets("data").Range("b2:b" & bottomD)
        For Each ws In Sheets
            ws.Activate
            If ws.Name = c Then
                c.EntireRow.Copy Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            End If
        Next ws
    Next c
End Sub