workbook、worksheetの指定
Sub randomSubName()
Dim WB As Workbook
Set WB = ThisWorkbook
Dim WS As Worksheet
Set WS = WB.Worksheets("SubjectList")
WS.Cells(1, 1).Value = "cells provide (rows, column), that's what you always forgot hah"
WS.Cells(1, 2).Value = "paypal mafia"
WS.Cells(1, 3).Value = "tiktok pajama"
End Sub