VBA to copy only visible rows to Notepad

My code is as follows.

it creates everything as it should but just need it to copy only visible rows.

I have another macro that runs first to hide certain rows depending on there value.

Sub Notepad()
Dim Rng As Range
Dim wb As Workbook
Set Rng = Range("B1:B2413")
Set wb = Workbooks.Add
With wb
Rng.Copy
.Worksheets(1).Range("B1:B3000").PasteSpecial Paste:=xlValues
.SaveAs "C:\Users\Leigh\Desktop\SomeFile.scr", xlTextMSDOS
.Close False
End With
End Sub

Please Help