''****Declare variables****
Dim I As Integer
Dim ws1 As Worksheet
Dim lr As Long
I = 1
Sheets("Alaska").Activate
Do While I <= 12
'****set variables***
Set ws1 = ActiveSheet
lr = Cells(Rows.Count, "a").End(xlUp).Row
'****Cululative totals column****
Columns("I:I").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I3").Select
ActiveCell.FormulaR1C1 = "cumulative total tests"
Range("I4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("I5").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+R[-1]C"
Range("I5").Select
Selection.AutoFill Destination:=Range("i5:i" & lr)
Columns("I:I").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("k:k").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("k3").Select
ActiveCell.FormulaR1C1 = "cumulative positive tests"
Range("k4").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("k5").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+R[-1]C"
Range("k5").Select
Selection.AutoFill Destination:=Range("k5:k" & lr)
Columns("k:k").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Next.Select
I = I + 1
Loop
End Sub