VB LOOP & MAX USED ROWS

Sub GATHER_DATA()

Dim first_line As Integer

Dim use_line As Integer

first_line = 1

MsgBox Sheet1.Cells(5, 4)

For i = 1 To Sheet1.UsedRange.Rows.Count

  If Sheet1.Cells(i, 5) <> "" Then

         Sheet1.Cells(first_line, 7) = Sheet1.Cells(i, 5)

         Sheet1.Cells(first_line, 6) = Sheet1.Cells(i, 4)

         first_line = first_line + 1

  End If

  

Next

    

End Sub