flere kriterier i for each

Hej

Jeg laver et udtræk fra et regneark med nedenstående kode. Jeg udvælger posterne med en 'for each' og her vil jeg gerne have en ekstra kontrol ind. Jeg vil kun have poster med, hvor der er i feltet i kolonne a er indtastet en værdi. Hvordan får jeg sådan en ekstra kontrol ind?

Sub OpdaterStartDenneMåned()

Dim c As Excel.Range
Dim i As Integer
Dim antrk1 As Integer
Dim antrk2 As Integer

antrk2 = Worksheets("StartDenneMåned").UsedRange.Rows.Count 'tæller antal rækker i det ark data skal placeres


Worksheets("StartDenneMåned").Range("a6:a" & antrk2).EntireRow.Delete 'sletter de gamle rækker data med start i A4

antrk1 = Worksheets("Placering").UsedRange.Rows.Count 'tæller antal rækker i arket placering


i = 5 'angiver startrækkenr hvor data skal indsættes
    For Each c In Worksheets("Placering").Range("d6:d" & antrk1).Cells 'range skal være den kolonne der indeholder kriteriet der tjekkes
          If Month(c.Value) = Month(Date) Then
          If Year(c.Value) = Year(Date) Then
        i = i + 1
            Worksheets("StartDenneMåned").Range("a" & i).Value = c.Offset(0, -3).Value '3 kolonner til venstre for kolonne c, hvor datoen står i
            Worksheets("StartDenneMåned").Range("b" & i).Value = c.Offset(0, 2).Value
            Worksheets("StartDenneMåned").Range("c" & i).Value = c.Offset(0, 11).Value '10 kolonner til højre for kolonne c, hvor datoen står i
            Worksheets("StartDenneMåned").Range("d" & i).Value = c.Offset(0, 0).Value 'den kolonne hvor datoen står i
           
        End If
        End If
    Next

antrk3 = Worksheets("StartDenneMåned").UsedRange.Rows.Count 'tæller antal rækker efter at data er placeret

Worksheets("StartDenneMåned").Range("a5:d" & antrk3).Select