Уважаемые форумчане , этот код находит предпоследнее значение на листе (пустых строк нет). Но если несколько значений находятся на одной строке, код видит их все как предпоследние , помогите если сможете , как включить в этот код проверку с права на лево

lr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Then
[a1] = Cells(Rows.Count, "B").End(xlUp)
End If

В этом примере столбец "B" фактически не -1 , а -3 от последнего значения на листе .

Уважаемые форумчане .
Вот макрос на листе если нет пустых строк находит предпоследнее значение если оно есть в столбце "в" и копирует в "a1", но если поменять в макросе "В" к примеру на "Н" если оно есть предпоследнее в столбце "Н", то уже не находит и не копирует . Возможно-ли изменить этот макрос
что-бы он находил допустим третье значение на листе учитывая , что пустых строк нет ,если вести отсчёт с самого крайнего значения UsedRange потом от него отсчитывать сразу влево по строке если нет , то подниматься выше на строку и влево т.д и когда находит , если третье крайнее с низу , значение находится в указаном в макросе столбце то копировать в "а1" Пример на четырёх листах

ВСЁ РЕШИЛОСЬ .