So I do I set a template to have information look better? I have wrote a code that creates and renames worksheets based on my list. Each worksheet has Net operating income statements. Now I need these sheet look clean and with a common template. So how do I add a template on top of the code I already in VBA.
Sub CopyandPaste()
Dim lastRow As Long
Dim thisRow As Long
Dim nextRow As Long
Dim sheetCount As Long
Dim selectedCells
Dim newSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
lastRow = Sheets("MasterSheet").Cells(Sheets("MasterSheet").Rows.Count, "A").End(xlUp).Row
selectedCells = Application.Selection.Value
For sheetCount = 1 To UBound(selectedCells, 1)
Set newSheet = Sheets.Add(After:=Sheets(Sheets.Count))
newSheet.Name = selectedCells(sheetCount, 1)
nextRow = 2
For thisRow = 2 To lastRow
If Sheets("MasterSheet").Cells(thisRow, "A").Value = selectedCells(sheetCount, 1) Then
Sheets("MasterSheet").Cells(thisRow, "A").EntireRow.Copy Destination:=newSheet.Cells(nextRow, "A")
nextRow = nextRow + 1
End If
Next thisRow
Next sheetCount
Sheets("MasterSheet").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub