problemer med VBA - if-then, fejl på END IF

Jeg har oprettet følgende makro, som skal tjekke måned mod måned, og hvis måneden er mindre end den aktuelle måned skal der foretages en kopi af data kun værdier.

Er dog kørt lidt fast I min marko, hvor fejlen er "End if without block if" - hvad mangler jeg?

min makro ser således ud;


Sub Kopiafdata()
'
'DIM as String
'  If sheets("Ark1").select Range("b5").value=Sheets("Forside").select Range("b7").value.Then
    Sheets("Ark1").Select
    Range("C5:K16").Selection.Copy
    Sheets("Ark1").Select Range("N5")
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  End If
End Sub