Why does this code not work?? VBA

[Xineq]

I have some trouble with this Code, and i don't know why it's not working??

If Sheets("Counting").Cells("R4").Value = "Amount 2014 - 4" Then
        Sheets("Counting").Range("S4:W4").Copy Destination:=Sheets("Overview 2014-4").Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0)
    End If

i get run-time error 5

Hope you can help me out

 

[storm8]

.Cells("R4") should be range("R4")

try all your other ranges is they really exist. in immediate window type

?Sheets("Counting").cells("R4").address

if your range is ok, you'll get address, else you need to fix your syntax

 

[VoG]

Try

If Sheets("Counting").Range("R4").Value = "Amount 2014 - 4" Then
    Sheets("Counting").Range("S4:W4").Copy Destination:=Sheets("Overview 2014-4").Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0)
End If