Bom dia Galera,

Fala galera...
Estou com um problema no VBA e queria a ajuda de vocês. Vamos lá.

Objetivo: Quero localizar dados em uma planilha chamada ("O.BMS"), copia-los e cola-los em outra planilha chamada ("LPU").

Premissas: Os dados que quero copiar da planilha ("O.BMS") estão entre as colunas "A" e "O", ou seja, preciso copiar o conteúdo de A até O de uma linha especifica.
Só devo copiar dados da linha onde o valor das colunas "D" OU "E" sejam diferentes de 0 (zero).
Após copiar os dados da planilha ("O.BMS") os dados devem ser colados na planilha ("LPU") começando na linha 11 coluna "B".
Os dados colados na planilha ("LPU") devem ser colados em linha subsequentes, ou seja, após colar o dados na linha 11 (primeira linha da planilha), os próximos dados devem ser colados na linha 12, depois linha 13 e assim por diante.

Código: O código que tentei foi este:

Private Sub criarlpu_Click()

Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim A As Integer
Dim B As Integer
Dim O As Integer
Dim nLSA As Integer
nLSA = 0
i = 0
k = 4
j = 5
m = 11
A = 1
B = 2
O = 15

If MsgBox(" ATENÇÃO!!" & vbCrLf & "Esse processo pode demorar alguns segundos!!" & vbCrLf & " Deseja Continuar?", vbYesNo, "Mensagem") = vbYes Then

nLSA = Application.Match("considera*", Sheets("O. BMS").Range("A1:A100000"), 0) - 1

Worksheets("O. BMS").Activate

'Percorre O.BMS da linha 23 até a nLSA
For i = 23 To nLSA

'Se o valor das células das colunas "AX" e "AW" for diferente de 0
If Sheets("O. BMS").Cells(i, "D").Value <> "" Or Cells(i, "E").Value <> "" Then

'Copia a linha "i" no intervalo que compreende as colunas A a O para linha de destino a partir da coluna "B"
Sheets("O. BMS").Activate
ActiveSheet.Range(Cells(i, "A"), Cells(i, "O")).Copy
'Worksheets("LPU").Activate

'Incrementa o valor de "m" para que o intervalo seguinte seja copiado na linha de baixo.
m = m + 1

End If
Next

End If
End Sub

Porém não funciona, acho chegar linha ActiveSheet.Range(Cells(i, "A"), Cells(i, "O")).Copy aparece o seguinte erro:

"Erro em tempo de execução '1004': Erro de definição de aplicativo ou de definição de objeto"

Alguém pode me ajudar??