Mega Code Archive
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