Kopirer fra et regneark til et andet

Prøv med noget i denne stil:

Sub TilDagen()
    i = 1
    For Each c In Range("a:a").Cells
        If c.Value = "0021 DE" Or c.Value = "0020 DE" Then
            a = c.Offset(0, 5).Value
            b = c.Offset(0, 6).Value
            d = c.Offset(0, 12).Value
            Windows("dagen.xls").Activate
            Workbooks("dagen.xls").Sheets(1).Range("a" & i).Value = a
            Workbooks("dagen.xls").Sheets(1).Range("b" & i).Value = b
            Workbooks("dagen.xls").Sheets(1).Range("c" & i).Value = d
            i = i + 1
        End If
    Next c
End Sub

Hvordan tilføjer jeg dette krav:
Kolonne C skal være lige med "DE1100"

If c.Value = "0021 DE" Or c.Value = "0020 DE" Or c.offset(0, 2).value "DE1100" Then

Undskyld, det var den forkerte. Den skal se sådan ud:

If (c.Value = "0021 DE" Or c.Value = "0020 DE") And c.Offset(0, 2).Value = "DE1100" Then

ok tak
send et svar

Velbekomme!

Her er et svar :-)