I am trying to speed up my macro by using With, but the With doesn't seem to be working. Can someone give me an example of how to use With with my code? I have the following chunk of code that repeats for different variables

If var1 = 1 The
Range("Range").Offset(Count + 1, 0).Selec
Selection.Cop
ActiveCell.Offset(0, 1).Activat
Workbooks(Book1).Activat
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
False, Transpose:=Fals
Application.CutCopyMode = Fals
End I
Workbooks(Book1).Activat
ActiveCell.Offset(1, 0).Activat
Workbooks(Book2).Activat

Thanks for the help
Wesle