Ayuda con macro

Prueba con la siguiente para la pregunta 1

Sub net_users()
Dim archNum As Integer
Dim Datos As Variant
Dim i As Long
Datos = Range("A1", Range("D" & Rows.Count).End(xlUp)).Value2
'Mod.Por.DAM
d2 = Range("E1", Range("H" & Rows.Count).End(xlUp)).Value2
d3 = Range("I1", Range("L" & Rows.Count).End(xlUp)).Value2
archNum = VBA.FreeFile
Open ThisWorkbook.Path & Application.PathSeparator & "temp.txt" For Output As #archNum
j = 1
For i = LBound(Datos) To UBound(Datos)
    Print #archNum, Datos(j, 1) & " " & Datos(j, 2) & " " & Datos(j, 3) & " " & Datos(j, 4)
    j = j + 1
Next i
For i = LBound(d2) To UBound(d2)
    Print #archNum, d2(i, 1) & " " & d2(i, 2) & " " & d2(i, 3) & " " & d2(i, 4)
    j = j + 1
Next i
For i = LBound(d3) To UBound(d3)
    Print #archNum, d3(i, 1) & " " & d3(i, 2) & " " & d3(i, 3) & " " & d3(i, 4)
    j = j + 1
Next i
Close #archNum
End Sub

Para la pregunta 2, quieres seleccionar el nombre a abrir o quieres que siempre se abra el archivo temp.txt pero que se guarde con otro nombre?

Saludos. DAM

Muchas gracias, la macro funciona perfectamente.

Y para la pregunta 2 necesito que me deje escoger el nombre del archivo ya que el nombre ira variando.

Gracias

Prueba con esta.

Sub net_users()
Dim archNum As Integer
Dim Datos As Variant
Dim i As Long
Datos = Range("A1", Range("D" & Rows.Count).End(xlUp)).Value2
'Mod.Por.DAM
d2 = Range("E1", Range("H" & Rows.Count).End(xlUp)).Value2
d3 = Range("I1", Range("L" & Rows.Count).End(xlUp)).Value2
archNum = VBA.FreeFile
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo"
        .Filters.Clear
        .Filters.Add "Todos los Archivos", "*.*"
        .Filters.Add "Archivos txt", "*.txt"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        If .Show Then
            atxt = .SelectedItems.Item(1)
            archtxt = Mid(atxt, InStrRev(atxt, "\") + 1)
        Else
            Exit Sub
        End If
    End With
'Open ThisWorkbook.Path & Application.PathSeparator & "temp.txt" For Output As #archNum
Open ThisWorkbook.Path & Application.PathSeparator & archtxt For Output As #archNum
j = 1
For i = LBound(Datos) To UBound(Datos)
    Print #archNum, Datos(j, 1) & " " & Datos(j, 2) & " " & Datos(j, 3) & " " & Datos(j, 4)
    j = j + 1
Next i
For i = LBound(d2) To UBound(d2)
    Print #archNum, d2(i, 1) & " " & d2(i, 2) & " " & d2(i, 3) & " " & d2(i, 4)
    j = j + 1
Next i
For i = LBound(d3) To UBound(d3)
    Print #archNum, d3(i, 1) & " " & d3(i, 2) & " " & d3(i, 3) & " " & d3(i, 4)
    j = j + 1
Next i
Close #archNum
End Sub

Saludos.DAM
Si es lo que necesitas.

Gracias por tu ayuda

Perdón, pero creo que no fui muy claro, te pido una disculpa, al correr la macro abre una ventana para abrir un archivo y lo que necesito es que lo guarde desde cero, que el archivo sea creado y que yo escoja el nombre para guardar el archivo de texto.

Saludos