boa noite, estou tentando fazer um botão que busque dados de outra aba e copie na sua própria aba. A descrição mais detalhada do problema está no código:

Private Sub CommandButton1_Click()
Dim x As Integer

Application.ScreenUpdating = False

x = 2

Worksheets("Clientes").Select

Worksheets("Clientes").Range("A2").Select

Do While ActiveCell.Value <> ""
'----------------------------------------------------------------------------------------
'Combobox2 é a caixa de combinação que se localiza na aba Cadastro 1
'as informações a serem copiadas estão na aba Clientes e vão ser passadas para Cadastro 1
'----------------------------------------------------------------------------------------
    If Worksheets("Cadastro 1").ComboBox2.Value = ActiveCell.Value Then
'----------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------
'O método de para selecionar o intervalo de células desejadas que estou utilizando
'não está funcionando para este botão (que se encontra na aba Cadastro 1)
'Entretanto, quando o botão é criado com o mesmo código porém na aba Clientes (mesma aba
'das informações a serem copiadas) ele funciona perfeitamente. Gostaria de entender por que isso acontece
'----------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------
        ActiveSheet.Range(Cells(x, 1), Cells(x, 6)).Select
        
        Selection.Copy
        
        Worksheets("Cadastro 1").Select
        
        Worksheets("Cadastro 1").Range("B5").Select
        
        ActiveSheet.Paste
        
        Application.CutCopyMode = False
        
        Exit Sub
        
            Else
            
            x = x + 1
            ActiveCell.Offset(1, 0).Select
            
    End If

Loop
            
AtualizaCombo

Application.ScreenUpdating = True

End Sub