Creating a new worksheet for your workbook, and then it fills in several cells in that new worksheet
Sub MyMacro() ActiveWorkbook.Worksheets.Add Range("A1").Value = "Company Report" Range("A2").Value = "Generated by an Excel macro" Range("A3").Value = "Generated for " & Application.UserName End Sub