Hello Dear,

Try using the code below. I am sure this will help you

Regards,
Sarfaraz Ahmed

Sub CopyPaste()

Dim i As Long
Dim j As Integer

i = 1
j = 1
Open "C:\Test1.txt" For Append As #1
Do While i <= Selection.Rows.Count
j = 1
Do While j <= Selection.Columns.Count

Print #1, Selection.Cells(i, j);

j = j + 1
Loop
Print #1, vbCrLf
i = i + 1
Loop
Close #1

End Sub