Macros To Save Worksheet as New xlsx file & Save Another Worksheet As A Text File

Sub Steffen()

Open "C:\\Users\Path\" & Sheets("Config").Range("C6").Value & ".txt" For Append As #1
    For i = i To Sheets("Config").UsedRange.Rows.Count
        Print #1, Cells(i, 1)
    Next i
Close #1

On Error GoTo err
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Path\" & Sheets("Data Sheet").Range("C8").Value & ".xlsx", FileFormat:=51
err:
Application.DisplayAlerts = True

End Sub

*EDIT reason: Wrong fileformat