you can read the values that have those cells in specific using this code
Assuming the data you have is on sheet 1:
Public Sub Lectura()
'Se declara el array que va a contener tus datos, el 500 es el maximo de datos que va a contener.
Dim Columna1(500), Columna2(500) As String
'El numero de fila donde estan tus datos
i = 8
Do While Hoja1.Cells(i, 4) <> "" 'el 4 es el numero de la columna
Columna1(i) = Hoja1.Cells(i, 4)
i = i + 1
Loop
i = 8
Do While Hoja1.Cells(i, 7) <> "" 'el 7 es el numero de la columna
Columna2(i) = Hoja1.Cells(i, 7)
i = i + 1
Loop
For i = 8 To 500
If Columna1(i) = "" And Columna1(i) = "" Then
Exit For
End If
Debug.Print Columna1(i) & " " & Columna2(i)
Next
End Sub