Range("I3:I30").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\user1\Desktop\Spreadsheetfilename.csv" _
    , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
Hi, the code above works fine, but I need to adapt it to suit my needs.


First of all, I need to copy I3:lastmemberinI3, L3:lastmemberinI3, X3:lastmemberinX3 (they will all have the same amount of rows from each column).

I then need to paste the values only into the new workbook (which will be used to save as a csv file).

The CSV file needs to be saved as the same name as the spreadsheet the data was first copied from.

Thanks in advance!