Não estou conseguindo fazer este código funcionar nesta planilha
NO MODULO:

Public linha As Long

Sub lsPesquisaCEP(ByVal sCEP As String)
  On Error GoTo TratarErro
    
    Range("Plan2!a" & linha & ":H" & linha).Clear
    
    If sCEP <> "" Then
        With ActiveWorkbook.XmlMaps("webservicecep_Mapa")
            .ShowImportExportValidationErrors = False
            .AdjustColumnWidth = True
            .PreserveColumnFilter = False
            .PreserveNumberFormatting = False
            .AppendOnImport = False
        End With
        ActiveWorkbook.XmlImport URL:= _
            "http://republicavirtual.com.br/web_cep.php?cep=" & sCEP, ImportMap:= _
            Nothing, Overwrite:=False, Destination:=Range("Plan2!$a$" & linha)
            
            
    End If
        
    Calculate
    
Sair:
    Exit Sub
TratarErro:
    MsgBox "CEP não cadastrado!"
    GoTo Sair
    Resume
End Sub

NA PLANILHA

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        linha = Target.Row
        lsPesquisaCEP (Target.Value)
    End If
End Sub