Hi Again,

I have another issue I was hoping someone could point me in the right direction.

Basically I need to copy a range of cells based on what my combo box reads. The problem is I need to be able to move a great number of cells at a time. Here is what I have that works for one instance. However I would also like to be able to copy in additional rows 70,126,182,238 and paste into 16,17,18,19 if the case changes I just need to go down one line and copy then paste into the same 16 17 18 19 range? I added some points to the script below for a better understanding.

Thanks in Advance... Mike

Sub PalletNParcelMONTHLY()

Dim temp1 As String

temp1 = ComboBox1.Value
Select Case temp1

 Case "Jan 09"
    
    'Pallets
    Sheets("RAW").Select
    Range("C14:D14").Copy   ' need to copy COLUMNS "C&D" ROWS 14,70,126,182,238
    
    Sheets("Audit File").Select
    Range("C15").PasteSpecial Paste:=xlPasteValues 'need to paste all the above into_
    'Column "C&D" AND Row 15,16,17,18,19
    
        
    Sheets("RAW").Select
    Range("E14").Copy
    
    Sheets("Audit File").Select
    Range("F15").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("O14:R14").Copy
    
    Sheets("Audit File").Select
    Range("G15").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("J14").Copy
    
    Sheets("Audit File").Select
    Range("M15").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("S14:V14").Copy
    
    Sheets("Audit File").Select
    Range("N15").PasteSpecial Paste:=xlPasteValues
    
    Sheets("Audit File").Select
    Range("R15").Formula = "=SUM(RAW!K14:N14)"
    Range("K15").Formula = "=SUM(RAW!F14:I14)"
    ' PARCELS
    
    Sheets("RAW").Select
    Range("C42:D42").Copy
    
    Sheets("Audit File").Select
    Range("C32").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("E42").Copy
    
    Sheets("Audit File").Select
    Range("F32").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("O42:R42").Copy
    
    Sheets("Audit File").Select
    Range("G32").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("J42").Copy
    
    Sheets("Audit File").Select
    Range("M32").PasteSpecial Paste:=xlPasteValues
    
    Sheets("RAW").Select
    Range("S42:V42").Copy
    
    Sheets("Audit File").Select
    Range("N32").PasteSpecial Paste:=xlPasteValues
    
    Sheets("Audit File").Select
    Range("R32").Formula = "=SUM(RAW!K42:N42)"
    Range("K32").Formula = "=SUM(RAW!F42:I42)"
 
 Case "Feb 09"  'copy value = 15,71,127,183,239 Paste value = row 15,16,17,18,19
 Case "Mar 09"  'copy value = plus one number above   Paste same row numbers
 Case "Apr 09"  'continue on...
 Case "May 09"
 Case "Jun 09"
 Case "Jul 09"
 Case "Aug 09"
 Case "Sep 09"
 Case "Oct 09"
 Case "Nov 09"
 Case "Dec 09"
 
End Select

    
End Sub