Copy and paste values
Range("B1:B3").Select: Selection.Copy: Range("P1").Select: Selection.PasteSpecial Paste:=xlPasteValues: Application.CutCopyMode = False: Range("A1").Select
Delay subroutine
Sub sbDelay(delay As Long): Dim i As Long: For i = 1 To delay: DoEvents: Next i: End Sub
Excel VBA Selenium Edge verification
Sub sbBing(): Dim wd As New WebDriver: wd.Start "edge", "https://www.bing.com": wd.Get "/": sbDelay (200000):End Sub
Print to File subroutine
Sub sbPrint(sText As String): Open "C:\tmp\z-" & Format(Now(), "HHMMSS") & ".txt" For Output As #1: Print #1, sText: Close #1: End Sub