Achei a solicitação bem genérica, então você tem duas opções, uma através do acionamento por Botão e outra no Evento da Plan1, é só escolher :

Insira um Botão e associe a rotina abaixo :

Sub NavegaPlan2()
    
    Dim swhPlan2 As Worksheet
    Dim sValor
    
    Set swhPlan2 = Sheets("Plan2")
    
    sValor = Range("A1").Value
    
    swhPlan2.Select
    swhPlan2.Cells(sValor, 2).Activate
   
End Sub

ou, com o botão direito clique na Plan1 e selecione Exibir Código e cole as instruções :
Esta executará sem precisar acionar o botão, sempre que for digitado em A1 ela será executada.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim swhPlan2 As Worksheet
    Dim sValor

    If Target.Address = "$A$1" Then
        
        Set swhPlan2 = Sheets("Plan2")
        
        sValor = Range("A1").Value
        
        swhPlan2.Select
        swhPlan2.Cells(sValor, 2).Activate
    
    End If

End Sub

[]s

seria basicamente isso

Sub ativa_cel()
linha = Cells(1, "A").Value
Sheets("Plan2").Select
Cells(linha, "B").Select
End Sub

Muito Obrigado, deu certinho