VBA If Functions and Copying Rows over to new sheets

[grannybrad]

Hi, I'm having trouble coming up with a way to create a code in VBA that would parse through a table of data, recognize if a value was in between a set of numbers and if it was, copy and paste the row into the next avaiable empty row in the new sheet. Then, if all went well, it would go down to the next value

For reference:

All values in column I are between 3-30

If the value in column I< 5, then I would want to the entire row containing that value to copy to the next empty row in sheet 3-5yr Mat.

if 5< i < 7, then 5-7yr Mat.

if 7<i<10, then 7-10yr Mat.

if 10<i<18, then 10-18ys Mat.

if 18<i, then 18-30yr Mat.

<I, Mat.

Any tips on how to set up that code?

 

[DeBeuz]

Hi,

Does these code snippets help?

    'Determine destination sheetname
    If I > 5 And I < 7 Then ShtName = "3-5yr Mat."
    If I = 7 Then ShtName = "7yr Mat."
    
    'Find it's last used row
    LastRowUsed = Sheets(SntName).UsedRange.Rows.Count
    
    'Copy current row to next empty row on destination sheet
    Rows(R).Select
    Selection.Copy
    Sheets(ShtName).Select
    Rows(LastRowUsed + 1).Select
    ActiveSheet.Paste

    'Return to my sheet and go to next row
    Sheets("..").Activate
    R = R + 1