请高手帮助修改一下代码

pureshadow

Sub 按钮1_单击()
ar = Range("a1:f" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(ar, 1)
rr = ""
For y = 1 To UBound(ar, 2)
If ar(x, y) <> "" Then rr = rr & Format(ar(x, y), "00") & " "
Next
st = st & rr & vbCrLf
Next
fname = Application.GetSaveAsFilename("导出号码.txt")
If fname <> False Then
    Open fname For Output As #1
    Print #1, st
    Close #1
End If

End Sub