Copy contents of Cell to array based on Col1 value not null

[missleigh]

I am trying to write a macro to read through a Read through a range of
cells (currently A2:J13), where A1 is not empty, select the contents of
A2 and E2 and write them to an array.

Ideally, this data would then be populated on a separate sheet.

So far I have:

+++++++++++++++++++++++

Sub TestStatusArray()
Dim TestCaseID As String
Dim Status As Boolean
Dim R As Integer
R = 2

Do While Not (IsEmpty(Cells(R, 1)))
Cells(R, 1).Copy << getting lost here


Loop
End Sub

+++++++++++++++++++++++

I can't seem to figure out how to extract the contents of the cells and
and write
A2 to TestCaseID and E2 to Status.

I welcome any suggestions/recommendations/reading links.

Thanks,
Leigh