Combine Multiple Macros

Oh Yea, it might help eh XD

1st i want it to save using cell value.

Public Sub SaveAsD1()
    ThisFile = Range("D1").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

2nd i want it to replace all the formula on sheet2 with there actual values.

Sub Replace_Value()
With Range("Print_Area")
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
End Sub

Then i want it to save sheet 2 on its own. (i just replaced this one with the code you helped me with before the one i was using was saving all the sheets individually, i only needed sheet2)

Sub Split2()
Dim fn As String
fn = Range("FINAL SOLIDS'!C1").Value & ".xls"
Sheets("FINAL_SOLIDS").Copy

ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\BOI\Desktop\AUTO EMAIL\FILES TO EMAIL" & fn
End Sub

Would this be possible to combine?

Since we are saving the file twice with 2 different names, whenever we use the range or sheet comments, its better to name the workbook and the sheet along with it. For e.g. if we are referring to a worksheet, we name the workbook as well. If we are referring to a range, we name the workbook and the sheet to which it pertains. This ensures that the macro works correctly and only on the workbooks we need.

So please provide the workbook names for each code.