Thank you!!

I am getting an error "run time error '9' subscript out of range"

When I click Debug it highlights:

cell.EntireRow.Copy Destination:=Sheets(4).Range(C4 & ":" & C4)


What can I change to remove that error?