VBA: Macro to copy cells that fall under condition to new tab - arrays

Question

The code below will scan each column and copy the whole row that falls under the conditions (SEA, CUA, etc... and are red) to a sheet called "FileShares." (It is half way complete!!)
I would like two things done now, instead of copying the whole rows, I would like it to copy from source sheet (see example dataset1) the Target System (Application), UserID and Role Name to the destination sheet, "Fileshares" (see example dataset2) for each cells that matches the conditions. Only the bold headers will need to be filled. For the "Action" column, Remove needs to be placed into each row that has data.
Also, I would like to search columns dynamically up to the nth column (last column in the sheet) instead of hardcoding variable "k".
Any help, insight or suggestions would be greatly appreciated. Thanks!
Sub BulkUpload()
Dim rngCell As Range
Dim lngLstRow As Long
Dim keywords() As String, maxKeywords() As String
Dim totalKeywords As Integer, i&
Dim ws As Worksheet, resultsWS As Worksheet
Sheets.Add
ActiveSheet.Name = "FileShares"
Call Template
Set ws = Sheets("Sheet1")
Set resultsWS = Sheets("FileShares")
totalKeywords = 8
ReDim keywords(1 To totalKeywords)
ReDim maxKeywords(1 To totalKeywords)
maxKeywords(1) = "SEA"
maxKeywords(2) = "CUA"
maxKeywords(3) = "CCA"
maxKeywords(4) = "CAA"
maxKeywords(5) = "AdA"
maxKeywords(6) = "X"
maxKeywords(7) = "CUA" & Chr(10) & "SEA"
maxKeywords(8) = "CCA" & Chr(10) & "CUA" & Chr(10) & "SEA"
lngLstRow = ws.UsedRange.Rows.Count
Worksheets("FileShares").Select
j = 6
p = 1
q = 6
Dim k& ' create a Long to use as Column numbers for the loop
For k = 9 To 50
With ws
For Each rngCell In .Range(.Cells(8, k), .Cells(lngLstRow, k))
For i = LBound(maxKeywords) To UBound(maxKeywords)
If rngCell.Value = maxKeywords(i) And rngCell.Interior.ColorIndex = 3 Then
resultsWS.Cells(1000, k).End(xlUp).Offset(j + p, 0).EntireRow.Value = rngCell.EntireRow.Value
j = q + p - 7 'Used to start at row 8 and every row after
End If
Next i
Next rngCell
End With
Next k
End Sub

Answer 1

Excel can help you write your macros!
Using the macro recorder, perform the action manually. The recorder will transform your clicks and button presses into VBA.
Once recorded, step through your code. VBA's IDE includes a great feature. Pressing F8 allows you to advance the code one line at a time. This will help you figure out what each part of the recorded macro does. Top tip: Split your screen, so you can see both Excel and the VBA window. This will help get to grips with the code, as you see the impact each line has on the UI.
When you find a line of code you do not understand refer to Microsoft's documentation. Most items include a working example, as well as an explanation.
You can learn so much following this technique. But there is a limit. If you cannot perform the action manually, you cannot record it. To take your skills to the next level I would recommend (in order):
Attend a training course.
Read a book.
Read blogs.
Although the internet contains a wealth of information most of it is in bite sized chunks. Courses and books cover the fundamentals in detail, giving you the tools you'll need to solve these problems.
I like books published by Wrox. But I would recommend you preview a page or two before buying. I hate reading books written in a style I do not get on with.