Help with Code - clearing contents of cells

Hello excel universe gods,

I was able to sucessfully create a code that would erase the contents of other cells if they did not match up with the original one (i.e A2).

Issue
I wanted to expand this code to clear the content of more cells. Currently, it only work on A, B, and C. Do you know how I can expand it to D, E, and F

This code only works for the second row, but i need it to encompass the 2nd, 3rd, and 4th row. Any help would be awesome!

PHP Code: 

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim rngState As Range
    Dim rngDivision As Range
    Dim rngClear As Range
    Dim rCell As Range
    
    Set rngState = Intersect(Columns("A"), Target)
    Set rngDivision = Intersect(Columns("B"), Target)
    
    Application.EnableEvents = False
    
    If Not rngState Is Nothing Then
        For Each rCell In rngState.Cells
            Select Case (rngClear Is Nothing)
                Case True:  Set rngClear = rCell.Offset(, 1).Resize(, 2)
                Case Else:  Set rngClear = Union(rngClear, rCell.Offset(, 1).Resize(, 2))
            End Select
        Next rCell
        rngClear.ClearContents
        Set rngClear = Nothing
    End If
    
    If Not rngDivision Is Nothing Then
        For Each rCell In rngDivision.Cells
            Select Case (rngClear Is Nothing)
                Case True:  Set rngClear = rCell.Offset(, 1)
                Case Else:  Set rngClear = Union(rngClear, rCell.Offset(, 1))
            End Select
        Next rCell
        rngClear.ClearContents
        Set rngClear = Nothing
    End If
    
    Application.EnableEvents = True
    
End Sub 


I'm sure this is an easy fix. Thank you!

Sajan

Wow,

JBeaucaire, u are a genuis! I changed it Resize (, 5) and it works perfectly now.

Thank you very much!