Sub test()
Dim rng As Range
Dim arr
Dim arr2
Dim i As Long, cnt As Long
For Each rng In ActiveSheet.UsedRange.Rows
    If WorksheetFunction.IsOdd(rng.Row) Then
       arr = rng
       ReDim arr2(1 To 1, 1 To UBound(arr, 2))
       cnt = 1
       For i = UBound(arr, 2) To 1 Step -1
          If arr(1, i) <> "" Then
            arr2(1, cnt) = arr(1, i)
            cnt = cnt + 1
          End If
       Next
       rng = arr2
    End If
Next
 
End Sub