Hi,

This is the original post but it still had some quirks:
http://www.excelforum.com/excel-prog...ml#post3912014

I tried a code that was handed to me earlier:
Option Explicit
Sub Test()

Dim WB As Workbook: Set WB = ThisWorkbook
Dim Totalrows As Integer, i As Integer
Dim Frozen As Integer

i = WB.ActiveSheet.UsedRange.Rows.Count

While i <> 399

Frozen = 100
Totalrows = WB.ActiveSheet.UsedRange.Rows.Count

Rows(Totalrows & ":" & Totalrows).Select
Selection.Delete Shift:=xlUp
Range("A1:DC" & Totalrows - 1).Select
Selection.Copy

Dim Newbook As Workbook

Set Newbook = Workbooks.Add
    With Newbook
        .Sheets.Add().Name = "DataSheet"
        .ActiveSheet.Paste
        .SaveAs Filename:="C:\Users\Samsung\Desktop\Excel For Dummies\1101" & "1101_" & i & ".xlsm", FileFormat:=52
    End With

Newbook.Close

i = i - 1

Wend

End Sub
It does delete the row as intended and saves the file but it doesn't retain the other two worksheets when saved. The new workbook only contains data from Worksheet 1 with one less row which is good but I can't figure out how to include the other two worksheets.

How do I retain the process but add two other worksheets with formulas? I also need those to keep the tests intact.
Happy to have forum help! Thanks in advance.

*I want to upload the file but its way past the limit.