Need Header to be saved to each file and have it saved to same folder not my desk top

Need Header to be saved to each file and have it saved to same folder not my desk top other than those it works spliting them into 100 rows per new file.

Sub t()
Dim i As Long
With ActiveSheet
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 100
Workbooks.Add
.Rows(i).Resize(100).Copy
ActiveWorkbook.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
ActiveWorkbook.SaveAs "Split" & i & ".xlsx", FileFormat:=51
ActiveWorkbook.Close False
Next
End With
End Sub

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

I think my instructions are clear on how to add the code tags. Re-read the post. Then re-read the forum rules you agreed to when you joined this forum and abide by them in the future.