Você quer apagar ou excluir a linha?

A linha inteira será transferida para a guia sk?

Obs: Apenas corrigindo a grafia: ClearContents

Bom dia Edson.
Inicialmente agradeço pelo interesse, ao mesmo tempo em que peço desculpa pelo erro de grafia.
Eu preciso somente apagar a linha depois de transferí-la inteira para a planilha "sk", isso porque farei referência em outra planilha à de movimento. Caso eu delete a linha haverá um erro de referência nessa que vou criar.
Muito obrigado.
Abraço
Cremonese

Bom di!!

Se não for isso, por favor explique exatamente e detalhadamente oque você precisa!!

Faça a baixo no link abaixo:
http://www.sendspace.com/file/5gmkmg

Att

Caro Alexandre.
Postei no link abaixo a planilha com maiores explicações.
Peço-lhe a gentileza de dar uma olhadinha.
Muito obrigado pelo seu interesse.
Cremonese
http://www.sendspace.com/file/394r2x

Alexandre,
Deixei de explicar que a macro deve fazer um loop na coluna F, buscando todas as linhas com SK, e não somente uma, ok?
Grato.
Cremonese

Boa tarde!!

Isso deve resolver!!

http://www.sendspace.com/file/p0k98w

Sub CopiarAleVBA()
Set sh1 = Sheets("movimento")
Set sh2 = Sheets("sk")

LR1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
LR2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
With sh1
  For j = 2 To LR1
    serie = .Cells(j, 2).Value
    If serie = "SK" Then
       sh2.Cells(LR2, 1) = .Cells(j, 6).Value
       sh2.Cells(LR2, 2) = .Cells(j, 7).Value
       sh2.Cells(LR2, 3) = .Cells(j, 9).Value
       .Rows(j).ClearContents
       LR2 = LR2 + 1
    End If
  Next
End With
End Sub

Não se esqueça de clicar na mãozinha e marcar seu tópico como resolvido
Veja como em:
viewtopic.php?f=7&t=3784

Att

Alexandre,
Obrigado pela ajuda.
Ficou somente um senão.
Na linha com o código ".Rows(j).ClearContents", a macro para e não apaga as linhas com SK da planilha movimento.
Abraço
Cremonese

Boa tarde!!

Não estou entendendo, no meu teste deu certo!!

Att

Também não estou entendendo o motivo, porém, a minha para e transfere somente a primeira linha com a condição SK.

Sub CopiarAleVBA()
Set sh1 = Sheets("movimento")
Set sh2 = Sheets("sk")

LR1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
LR2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
With sh1
For j = 2 To LR1
serie = .Cells(j, 2).Value
If serie = "SK" Then
sh2.Cells(LR2, 1) = .Cells(j, 6).Value
sh2.Cells(LR2, 2) = .Cells(j, 7).Value
sh2.Cells(LR2, 3) = .Cells(j, 9).Value
.Rows(j).ClearContents >>>>>>>>>>>>> Nesse ponto a macro para e tarja em amarelo a linha do código.
LR2 = LR2 + 1
End If
Next
End With
End Sub

Boa tarde!!

Usou meu arquivo??

Mande seu arquivo para que eu possa testa-lo!

Att

Alexandre,
Tomei a liberdade de encaminhá-lo via e-mail.
Comrpometo-me a divulgá-lo devidamente corrigido aqui no fórum.
Obrigado.
Cremonese

Link com o meu arquivo.
http://www.sendspace.com/file/thca4q

Boa tarde!!
Tire (exclua as), as colunas da direita pois deve haver células mescladas!!

Att

Alexandre,
Perfeito. Ficou ótimo.
Agradeço imensamente a sua ajuda e peço desculpa pela minha ignorância.
Forte abraço.
Cremonese