Перестановка ячеек таблицы

[longfello]

Имеется большая таблица с заголовком, в первой колонке ее содержатся названия строчек, в других идут записи. Количество заполненных ячеек в каждой строке разное, соответственно, последняя ячейка имеет переменную координату столбца.
Нужно извлекать информацию из последней ячейки каждой строки, т.е. фактически нужно удалять в каждой строке содержимое ячеек со второй по предпоследнюю, а последнюю переносить во второй столбец
Просьба подсказать макросом, как это реализовать

[doober]

Попробуйте так,проверить не могу.пишу в блокноте

Sub Test
For i = 1 To Range("b65000").End(xlUp).Row
Номер_Столбца=Range("iv" & i).End(xlToLeft).Column
Cells(i,2)=Range("iv" & i).End(xlToLeft).Value 
 Range(Cells(i,3),Cells(i, Номер_Столбца)).ClearContents             
Next
End Sub

[Hugo121]

Заготовочка

Sub tt()
Dim a()
a = [a1:c1].Value
tmp = Split(StrReverse(Application.Trim(Join(Application.Transpose(Application.Transpose(a))))))(0)
End Sub

[Hugo121]

Продолжил, диапазон нужно указать в коде:

Sub tt()
Dim a()
For Each cc In Range("B1:B16")
a = Range("B" & cc.Row & ":E" & cc.Row).Value
Range("B" & cc.Row & ":E" & cc.Row).Clear
cc.Value = Split(StrReverse(Application.Trim(Join(Application.Transpose(Application.Transpose(a))))))(0)
Next
End Sub

[doober]

А если столбцов в одной строке 17.а в следующей 46
Что делать?

[Hugo121]

Если вопрос ко мне, то можно вместо E писать AT.
А если там сбоку справа другие нужные данные есть?

[longfello]

Спасибо, но желательно универсальный вариант с автоопределением области таблицы.
Справа данных нет - это готовая выгрузка из сторонней БД

[Hugo121]

Автоопределение?

lastcol = [a1].CurrentRegion.Rows.Count
For Each cc In Range("B1:B16")
a = Range("B" & cc.Row, Cells(cc.Row, lastcol)).Value
Range("B" & cc.Row, Cells(cc.Row, lastcol)).Clear
cc.Value = Split(StrReverse(Application.Trim(J oin(Application.Transpose(Applicati on.Transpose(a))))))(0)
Next

Вниз тоже нужно автоопределить?

[longfello]

да, вправо и вниз

[doober]

Сообщение от longfello

Спасибо, но желательно универсальный вариант с автоопределением области таблицы.
Справа данных нет - это готовая выгрузка из сторонней БД

А вы мой не проверили,он все сам определяет

Sub Test
For i = 1 To Range("b65000").End(xlUp).Row
Номер_Столбца=Range("iv" & i).End(xlToLeft).Column
Cells(i,2)=Range("iv" & i).End(xlToLeft).Value 
 Range(Cells(i,3),Cells(i, Номер_Столбца)).ClearContents             
Next
End Sub

Была пропущена одна скобка