Возможно, проблема с выбором диапазона, потому что последний столбец и последняя строка установлены неправильно

Question

Я пытаюсь выбрать диапазон и для всех цветовых ячеек вставить 0.

Я не понимаю, почему этот код не работает.Я просмотрел пару вариантов с форума, но все равно не работает.Я почти уверен, что это как-то связано с последней строкой и последним столбцом, и это что-то очевидное.

Не могли бы вы сообщить, что я делаю здесь неправильно?

Dim cell As Range, rng As Range
    Dim LRRow As Long, LRCol As Long

        With ThisWorkbook.Worksheets("Data")

         LRRow = .Cells(4, .Columns.Count).End(xlToLeft).Column
         LRCol = .Cells(.Rows.Count, LRRow).End(xlUp).row

        Set rng = .Range(Cells(7, 4), Cells(LRRow, LRCol))


       ' Selection.AutoFilter
       ' Range("A1").Select


        For Each cell In rng

            If cell.Interior.Color = RGB(255, 204, 204) And cell.Value = "" Then
             cell.Value = 0
            End If

        Next cell

        End With

Answer 1

Попробуйте изменить:

 LRRow = .Cells(4, .Columns.Count).End(xlToLeft).Column
 LRCol = .Cells(.Rows.Count, LRRow).End(xlUp).row

К

LRRow = .Cells(.Rows.Count, LRRow).End(xlUp).row
LRCol = .Cells(4, .Columns.Count).End(xlToLeft).Column