Option Explicit
Sub Ìàêðîñ1()

Dim WhereFind As Range   ' äèàïàçîí, îòêóäà áðàòü äàííûå
Dim nColumn As Integer   ' íîìåð ñòîëáöà, îòêóäà áðàòü äàííûå
Dim nFirstRow As Integer   ' íîìåð ïåðâîé ñòðîêè ñòîëáöà äàííûõ
Dim nLastRow As Integer   ' íîìåð ïîñëåäíåé ñòðîêè ñòîëáöà äàííûõ
Dim Sheet4Find As String   ' èìÿ ëèñòà, îòêóäà áðàòü äàííûå
Dim Row As Integer


    ActiveSheet.Range("c23:c195").Value = Empty
   Sheet4Find = "ÂÈÏ"   ' ëèñò, îòêóäà áðàòü äàííûå
   nColumn = 3   ' ñòîëáåö, îòêóäà áðàòü äàííûå
   nFirstRow = 10   ' ïåðâûé ðÿä (ñòðîêà) ñòîëáöà, îòêóäà áåðóòñÿ äàííûå
   With Sheets(Sheet4Find)
 
    If Not Sheets(Sheet4Find).Range("f14").Value = "" Then
       nLastRow = .Cells(.Rows.Count, nColumn).End(xlUp).Row   'ïåîñëåäíèé ðÿä (ñòðîêà) ñòîëáöà, îòêóäà áåðóòñÿ äàííûå
      Set WhereFind = .Range(.Cells(nFirstRow, nColumn), .Cells(nLastRow, nColumn))
         
     ActiveSheet.Range("c23:c195").Value = .Range(.Cells(nFirstRow, nColumn), .Cells(nLastRow, nColumn)).Value
  End If
    
    
  
    End With
End Sub