Amigos, bom dia.

Tentei criar o seguinte laço for each

Dim ano As Variant

Sheets("Marcacoes Ano").Activate

ano = "2014"

For Each ano In Range("S")
Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "AF")).Select
Selection.Copy
Sheets("Marcacoes 2014 - Arquivo").Activate
Range("A").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Marcacoes Ano").Activate
Application.CutCopyMode = False
Selection.EntireRow.Delete
Next

a minha intenção é que para cada valor 2014 encontrado na coluna "S", quero que a linha toda seja copiada e colada em outra planilha para ser salva e depois que a linha seja apagada da planilha inicial.

Mas deu erro logo no inicio do laço dizendo que o método Range do objeto _Global falhou.
Alguem sabe me ajudar?