Cria um laço If ... else selecionando várias celulas a partir da comparação de um valor da célula

Sub importar05()
    Application.ScreenUpdating = False
    Dim nomearq As String
    Dim nomearq2 As String
    nomearq = Application.GetOpenFilename
    Workbooks.Open Filename:=nomearq
    nomearq2 = ActiveWorkbook.Name

    Sheets(7).Select
    Range("a1").Select  

   ' Cria um laço If ... Else  selecionando várias células a partir da comparação de um valor da célula .

    Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
    Workbooks("importar.xls").Activate
    Range("a65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.PasteSpecial xlPasteFormats
    ActiveCell.PasteSpecial xlPasteValues
    Workbooks(nomearq2).Activate
    Workbooks(nomearq2).Close
    Range("a1").Select
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "Importação Concluída com êxito"
End Sub