Foro Excel

muy buenas tengo el siguiente codigo que revisa un rango y las filas que cumplan cierta condicion tienen que copiarse a otro rango en otra hoja de excel...pero la opcion de pegado me da error...me pueden echar una mano????

Range("d11").Select
Do While ActiveCell.Row <> UltimaFila
If ActiveCell.Value = "s" Then
FilaPasar = ActiveCell.Row
Range(Cells(FilaPasar, 5), Cells(FilaPasar, 25)).Cut
Sheets("hoja3").Select
Range("e11").Select
Range(Cells(FilaPasar, 5), Cells(FilaPasar, 25)).Paste ---- ES AQUI DONDE ME DA EL ERROR
End If
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("no hay")