Oi pessoal,

estou gravando uma macro, e em relação a VBA sou novato e estou estudando ainda´. Porém preciso resolver essa situação e não achei especificamente essa resposta. Acredito ser simples para que entende de VBA.

Gravei a macro abaixo:

Sub Macro15()
'
' Macro15 Macro
'

'
    Windows("Planilha-1.xls").Activate
    ActiveCell.Offset(0, -41).Columns("A:A").EntireColumn.Select
    Selection.Find(What:="1283", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
     ActiveCell.Offset(0, 44).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ANALISE.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Windows("Planilha-1.xls").Activate
    ActiveCell.Offset(0, -44).Columns("A:A").EntireColumn.Select
    Selection.Find(What:="1283", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 41).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("ANALISE.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, -1).Range("A1").Select
End Sub

Minha pergunta é como eu posso Deixar valor da procura, que no caso é "1283", ser igual a celula de duas colunas atras.
E ainda como fazer um Loop na macro para ela continuar até a celula localizada duas colunas atrás esteja vazia?

O que é agora:

Selection.Find(What:="1283"

O resultado esperado:

ActiveCell.Offset(0, -2).Range("A1").Select