Modifying existing code to save worksheet

Try this...

Sub twosheetsave()
Dim FP As String, dt As String, wbNam As String, rActive As Range

Application.ScreenUpdating = False

For Each a In Array(3, 2)
    x = x + 1
    FP = Application.Index(Array("C:\Test\", "C:\Saved\"), x)
    ThisWorkbook.Sheets(a).Copy
    Set rActive = ActiveCell
    Cells.Copy
    Cells.PasteSpecial xlPasteValues
    rActive.Select
    wbNam = Range("j1").Value
    dt = Format(CStr(Now), "_hhmm_dd_mm_yyyy")
    With ActiveWorkbook
        .SaveAs Filename:=FP & wbNam & dt & ".xls"
        .Close True
    End With
Next a

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub