Resize таблицы

[EugeneS]

спасибо достаточно

окончательный вариант кода:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MeLRow As Long, NewShLRow As Long

If Target.Address = "$C$2" Then
    
Application.ScreenUpdating = 0

Application.EnableEvents = 0
    
    MeLRow = Me.Cells(Rows.Count, 1).End(xlUp).Row
    
    NewShLRow = Sheets([c2].Value).Cells(Rows.Count, "a").End(xlUp).Row
          
    With Me
          
    If MeLRow > NewShLRow Then
        
        .ListObjects(1).Resize Range("$A$4:$I$" & NewShLRow)
        .Cells(NewShLRow + 1, 1).Resize(MeLRow, 9).Clear
    
    Else
    
        .ListObjects(1).Resize Range("$A$4:$I$" & NewShLRow)
    
    End If
    
    End With
    
End If
    
Application.EnableEvents = 1
    
Application.ScreenUpdating = 1

End Sub

[AKSENOV048]

тогда, ВАМ самое МегоОгромное спасибо!
P.S. нужно будет что в Photoshop`е сделать обращайтесь, с абсолютно любыми пожеланиями там я намного лучше разбираюсь чем в Excel!)
fimi-on@yandex.ru