I am new to Visual Basic and was hoping someone could help me shorten this code. The part that seems too long is the Copy and PasteSpecial portion (Bold). Can this be shortened any? As you can probably tell I recorded some of this macro and wrote the rest. This is only a small part of a very large marcro, which is why I want to shorten it. A variation of the code I posted repeats several times. Thanks for any help.


Sub Finish_01()

If Range("I7") = "" Then
Range("I7").Formula = Range("E2") + Range("F2")
Range("I7").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2:C2").Select
Application.CutCopyMode = False
Selection.Copy
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False Range("A1").Select
ElseIf Range("L7") = "" Then ........

............ End Sub