Basic Excel VBA code

Sub addSheetRandomly()

Workbooks("2020TBMonthlyInvoice.xlsm").Worksheets.Add.Name = "NewSheet"


End Sub



Sub addSheetAfter()

Workbooks("2020TBMonthlyInvoice.xlsm").Worksheets.Add(After:=Worksheets("Oct2020")).Name = "NewSheet1"

End Sub



Sub openFileGetValue()

Dim wb As Workbook
Dim wb2 As Workbook

Set wb = Workbooks.Open("C:\Users\Linawati\Documents\ACCS\2020Calculations.xlsx")

'copy
wb.Worksheets("Sheet1").Range("A1").Copy
'paste
Workbooks("2020TBMonthlyInvoice.xlsm").Worksheets("Oct2020").Range("J1").PasteSpecial

'close wb and save wb2
wb.Close
Set wb2 = Workbooks("2020TBMonthlyInvoice.xlsm")
wb2.Save

End Sub