Tidy up simple code?

[MOB]

I have this;

Windows("file1.xlsx").Activate
Range("F4:F500").Select
Application.CutCopyMode = False
Selection.Copy
Windows("file2.xlsm").Activate
Range("L2").Select
ActiveSheet.Paste

I'm sure this can be reduced somewhat - any suggestions?

Thanks

 

[HighAndWilder]

I have this;

Windows("file1.xlsx").Activate
Range("F4:F500").Select
Application.CutCopyMode = False
Selection.Copy
Windows("file2.xlsm").Activate
Range("L2").Select
ActiveSheet.Paste

I'm sure this can be reduced somewhat - any suggestions?

Thanks

This assumes that the data is copied from Sheet1 and pasted to Sheet1, you can change these as appropriate.

Public Sub subTidyUpCode()
  
  Workbooks("file1.xlsx").Worksheets("Sheet1").Range("F4:F500").Copy Workbooks("file2.xlsm").Worksheets("Sheet1").Range("L2")
    
End Sub

 

[MOB]

Many thanks - worked perfectly, and so much tidier

 

[MOB]

How could I amend your code to just paste special values instead?

 

[HighAndWilder]

How could I amend your code to just paste special values instead?

What do you mean by 'special values'?

 

[MOB]

Just pasting the raw values, not the formats, formulae etc

 

[Peter_SSs]

Try

Sub Copy_Values()
  Workbooks("file2.xlsm").Worksheets("Sheet1").Range("L2:L498").Value = Workbooks("file1.xlsx").Worksheets("Sheet1").Range("F4:F500").Value
End Sub

 

[Peter_SSs]

An alternative would be

Sub Copy_Values_v2()
  Workbooks("file1.xlsx").Worksheets("Sheet1").Range("F4:F500").Copy
  Workbooks("file2.xlsm").Worksheets("Sheet1").Range("L2").PasteSpecial xlValues
  Application.CutCopyMode = False
End Sub

 

[HighAndWilder]

Just pasting the raw values, not the formats, formulae etc

Public Sub subTidyUpCode()

  Workbooks("file1.xlsx").Worksheets("Sheet1").Range("F4:F500").Copy
  
  Workbooks("file2.xlsm").Worksheets("Sheet1").Range("L2").PasteSpecial (xlPasteValues)

  Workbooks("file2.xlsm").Activate
  
  Range("L2").Select
  
  Application.CutCopyMode = False
  
End Sub

 

[MOB]

Many thanks