optimise code -> subroutine to function (paramarray??!)

a different one this time...

Currently I do this:

    For CurrentTableRow = WallTableBeginsRow To WallTableBeginsRow + NumberOfWalls
        If (Cells(CurrentTableRow, BwkBlkStudCol).Value = "Bwk") And (Cells(CurrentTableRow, FloorCol).Value = "GF") Then
            GFBWKArrayNumber = GFBWKArrayNumber + 1
            ReDim Preserve GFBWK(1 To GFBWKArrayNumber)
            GFBWK(GFBWKArrayNumber) = (Cells(CurrentTableRow, LengthCol).Value) & " * " & (Cells(CurrentTableRow, HeightCol).Value)
        ElseIf _
        (Cells(CurrentTableRow, BwkBlkStudCol).Value = "Blk") And (Cells(CurrentTableRow, FloorCol).Value = "GF") Then
            GFBLKArrayNumber = GFBLKArrayNumber + 1
            ReDim Preserve GFBLK(1 To GFBLKArrayNumber)
            GFBLK(GFBLKArrayNumber) = (Cells(CurrentTableRow, LengthCol).Value) & " * " & (Cells(CurrentTableRow, HeightCol).Value)
        ElseIf _
        (Cells(CurrentTableRow, BwkBlkStudCol).Value = "Bwk") And (Cells(CurrentTableRow, FloorCol).Value = "FF") Then
            FFBWKArrayNumber = FFBWKArrayNumber + 1
            ReDim Preserve FFBWK(1 To FFBWKArrayNumber)
            FFBWK(FFBWKArrayNumber) = (Cells(CurrentTableRow, LengthCol).Value) & " * " & (Cells(CurrentTableRow, HeightCol).Value)
        ElseIf _
        (Cells(CurrentTableRow, BwkBlkStudCol).Value = "Blk") And (Cells(CurrentTableRow, FloorCol).Value = "FF") Then
            FFBLKArrayNumber = FFBLKArrayNumber + 1
            ReDim Preserve FFBLK(1 To FFBLKArrayNumber)
            FFBLK(FFBLKArrayNumber) = (Cells(CurrentTableRow, LengthCol).Value) & " * " & (Cells(CurrentTableRow, HeightCol).Value)
        ElseIf _
        (Cells(CurrentTableRow, BwkBlkStudCol).Value = "Bwk") And (Cells(CurrentTableRow, FloorCol).Value = "TOP") Then
            TOPBWKArrayNumber = TOPBWKArrayNumber + 1
            ReDim Preserve TOPBWK(1 To TOPBWKArrayNumber)
            TOPBWK(TOPBWKArrayNumber) = (Cells(CurrentTableRow, LengthCol).Value) & " * (" & (Cells(CurrentTableRow, HeightCol).Value) & " /2)"
        ElseIf _
        (Cells(CurrentTableRow, BwkBlkStudCol).Value = "Blk") And (Cells(CurrentTableRow, FloorCol).Value = "TOP") Then
            TOPBLKArrayNumber = TOPBLKArrayNumber + 1
            ReDim Preserve TOPBLK(1 To TOPBLKArrayNumber)
            TOPBLK(TOPBLKArrayNumber) = (Cells(CurrentTableRow, LengthCol).Value) & " * (" & (Cells(CurrentTableRow, HeightCol).Value) & " /2)"
        Else: End If
    Next CurrentTableRow

I want to optimise this by turning it into a function; basically it extracts data from a table based on parameters...

You will notice that each of the above conditions only use 2 parameters, however I would like to be able to pass the function any number... so what I'm thinking is basically:

allBrick = functionname(table (search_one, search_two), (search_one, search_three, search_four))

I guess that the function would return an array...

I hope that this makes sense... knowing that what I am wanting to do is possible would be a great start!!

Thanks