Guru do Excel e Power BI

 Sheets("Import").Visible = True
 Sheets("Import").Select
  Range("A1").Select
 Cells.Select
 Selection.Delete Shift:=xlUp




 ' Apaga Dados.
 Application.ScreenUpdating = False

 ' Define variaveis.
 Set DestBook = ActiveWorkbook
 Set DestCell = ActiveCell


 ' abre caixa de dialogo.
 RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")



 ' Se Retval for falso, cancelar caixa de dialogo
 If RetVal = False Then Exit Sub
 
  ' variavel para texto
 Set SourceBook = ActiveWorkbook
 
 
 'Modificação Parkeless nº 1 - obter nome do arquivo e endereço
 Dim Endereço As String
 Dim Nome_Arquivo As String
 Nome_Arquivo = ActiveSheet.Name
 Endereço = SourceBook.FullName
 

 ' copia os dados da planilha
 Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy

 ' Ativar workbook destino e colar valores do arquivo.
 ' DestBook.Activate
 ' DestCell.PasteSpecial Paste:=xlValues
  Range("A1").Select
DestBook.Activate
 DestCell.PasteSpecial Paste:=xlAll

 ' Fechar arquivo de conexao
 SourceBook.Close False

  Selection.End(xlUp).Select




 ' RETORNAR PARA MAIN
  Sheets("Main").Select
 'Modificação Parkeless nº 2 - incluir nome e endereço na célula A1 e B1
 Range("A1") = Nome_Arquivo
 Range("B1") = Endereço
  
  Range("A1").Select

 'Mensagem de Texto para próxima ETAPA
 MsgBox "Dados importados com sucesso", 64


End Sub

Sub AleVBA_1136()

Dim fso As Object, txtData, lCount As Long
Set fso = CreateObject("Scripting.FileSystemObject")
    txtData = fso.OpenTextFile("C:\Users\alexandreVBA\Downloads\dd.txt", 1).ReadAll  'Escola o diretório corretamente
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\r\n"
        lngCount = .Execute(txtData).Count + 1
    End With
    MsgBox lngCount & " linha[s]."
    Set fso = Nothing

End Sub