Speed up VBA code

[alecwarner]

I've read using the SELECT function slows down VBA.

Is there an alternative method for the following code:

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("SAR").Select
Range("B62:U62").Select
Selection.Copy
Range("B63:U121").Select
ActiveSheet.Paste
Range("B63:P121").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B125:U125").Select
Selection.Copy
Range("B126:U164").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B126:P164").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Thanks

Al

 

[MARK858]

Possibly...

Sub alecW()
    Application.ScreenUpdating = False
    With Sheets("SAR")
        .Range("B62:U62").Copy .Range("B63")
        .Range("B63:P121").Value = .Range("B63:P121").Value
        .Range("B125:U125").Copy .Range("B126")
        .Range("B126:P164").Value = .Range("B126:P164").Value
    End With
    Application.ScreenUpdating = True
End Sub