Below the vba code which i want to run in libreoffice
Sub parsing()
For j = 1 To 1742
For i = 1 To 1720
If InStr(1, Cells(1, j), "Performance") <> 0 _
And InStr(1, Cells(1, j), "Tire") <> 0 Then
If IsEmpty(Cells(i, j)) = False Then
Cells(i, 1744) = Cells(i, 1744) & ", " & Cells(i, j)
End If
End If
Next i
Next j
End Sub