Makro ohne selektieren?

Sub Exportieren()
Dim TmpDir As String
TmpDir = CurDir
Dim WB As Workbook
Set WB = ActiveWorkbook
Workbooks.Open Filename:=TmpDir & "\xxx.xls"
Range("B2:D38").Select
Selection.ClearContents
WB.Activate
Range("C2:D33").Select
Selection.Copy
Windows("xxx.xls").Activate
Range("C2").Select
ActiveSheet.Paste
Range("B35").Select
WB.Activate
Range("B35:B37").Select
Application.CutCopyMode = False
Selection.Copy
Windows("xxx.xls").Activate
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
WB.Activate
End Sub

Mein Problem ist das ich ein "Selektierer" bin und wohl auch zu blöd um es nicht zu machen.
Daher meine Frage: wie bekomme ich das selektieren weg und möglichst auch das Bildflakern?
Vielen Dank und schon mal ein schönes Wochenende.
Gruß lobby