Bom dia!!

Veja se isso te ajuda...

Sub Valorpago()
    Dim a      As String
    Dim continua As VbMsgBoxResult
    Dim p      As Long
     
    p = 0
    i = 1
    Range("A1").Select
    While p < 10
        a = Cells(1, i)
        ActiveCell.Offset(6, 0).Range("A1:H9").Select
        MsgBox (a)
        If Not IsEmpty(a) Then
            With Selection
                .Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                xlNext, MatchCase:=False, SearchFormat:=False).Activate
                continua = MsgBox("Resultado é correto?", vbYesNo, "decidindo o valor")
            End With
            If continua = vbYes Then
                i = i - 1
                ActiveCell.Offset(0, 2).Range("A1").Copy ActiveCell.Offset(1, i)
                i = i + 1
            End If
        End If
        p = p + 1
        i = i + 1
    Wend
End Sub

Dê retorno

não funcionou o erro q esta dando é q a variavel do objeto ou a variavel do bloco "with" não fou definida

oq eu preciso na minha estrutura é uma forma de ele ficar fazendo o lopp ate o fim da estrutura while, se ele encontra o erro ele vá para o fim: e comece denovo pois o valor da variavel "a" foi trocado.

pelo q eu percebi ele esta dando erro como se a estrutura estivesse dando o mesmo erro varias vezes ele não reconhece q o valor de " a " foi trocado

Bom dia!!

Veja se isso vai funcionar..

Sub Valorpago() 
    Dim a      As String 
    Dim continua As VbMsgBoxResult 
    Dim p      As Long 
    On Error Resume Next 
    p = 0 
    i = 1 
    Range("A1").Select 
    While p < 10 
        a = Cells(1, i) 
        ActiveCell.offset(6, 0).Range("A1:H9").Select 
        MsgBox (a) 
        If Not IsEmpty(a) Then 
            With Selection 
                .Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 
                xlNext, MatchCase:=False, SearchFormat:=False).Activate 
                continua = MsgBox("Resultado é correto?", vbYesNo, "decidindo o valor") 
            End With 
            If continua = vbYes Then 
                i = i - 1 
                ActiveCell.offset(0, 2).Range("A1").Copy ActiveCell.offset(1, i) 
                i = i + 1 
            End If 
        End If 
        p = p + 1 
        i = i + 1 
    Wend 
End Sub 

Muito obrigado resolveu meu principal problema.
oq ocorre agora é que se vc notar na minha função ele copia e cola determinado valor, agora onde daria o erro ele esta pegando o valor de dua colunas a frente
o importante q onde ta certo ele esta pegando o valor CORRETAMENTE

te agradeço muito

Dim a As String
Dim continua As VbMsgBoxResult
Dim p As Long

On Error Resume Next

p = 0
i = 1

While p < 10
    Range("A1").Select
    a = Cells(1, i)
    ActiveCell.Offset(6, 0).Range("A1:H9").Select
    MsgBox (a)
    If Not IsEmpty(a) Then
        With Selection
                .Find(What:=a, After:=ActiveCell, LookIn:= _
            xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
            xlNext, MatchCase:=False, SearchFormat:=False).Activate
        End With
        continua = MsgBox("Resultado é correto?", vbYesNo, "decidindo o valor")
    If continua = vbYes Then
        ActiveCell.Offset(0, 2).Range("A1").Select
        Application.CutCopyMode = False
        Selection.Copy
        Range("A1").Select
        i = i - 1
        ActiveCell.Offset(1, i).Range("A1").Select
        i = i + 1
        ActiveSheet.Paste
    End If
    End If
    p = p + 1
    i = i + 1
Wend
End Sub

Como eu faço para colocar [resolvido] no topico?

boa noite!!!

Veja no anexo.

Na parte superior das resposta de quem te ajudou..