Macro - Help defining range from two worksheets

JoAvg 

Does this work as desired?

Sub Create_Station()
    Dim wbkT        As Workbook
    Dim wsStash     As Worksheet
    Dim wsFormulas  As Worksheet
    Dim wshS        As Worksheet
    Dim wshT        As Worksheet
    Dim sPath       As String
    Dim sDate       As String
    Dim sCity       As String
    Dim sAddress    As String
    Dim sFile       As String
    
    Application.ScreenUpdating = False
    
    Set wsStash = ThisWorkbook.Worksheets("STASH")
    Set wsFormulas = ThisWorkbook.Worksheets("FORMULAS")
    Set wbkT = Workbooks.Add(xlWBATWorksheet)
    Set wshT = wbkT.Worksheets(1)
    wsStash.Range("A53:I54").Copy
    wshT.Range("A1").PasteSpecial Paste:=xlPasteValues
    wshT.Range("A1").PasteSpecial Paste:=xlPasteFormats
    sPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    sDate = Format(Date, "dd mm yyyy")
    sPath = sPath & "\ASBUILT\" & sDate
    sCity = wsFormulas.Range("B42").Value
    sPath = sPath & "\" & sCity
    sAddress = wsFormulas.Range("B43").Value
    sPath = sPath & "\" & sAddress
    sFile = "STATION.xlsx"
    sPath = sPath & "\" & sFile
    wbkT.SaveAs Filename:=sPath, FileFormat:=xlOpenXMLWorkbook
    wbkT.Close
    Application.ScreenUpdating = True
End Sub