let
    Источник = Excel.Workbook(File.Contents("путь к файлу.xlsx"), null, true),
    #"xxxx_Sheet" = Источник{[Item="лист1",Kind="Sheet"]}[Data]
 in
    #"xxxx_Sheet"

Источник{[Item="лист1",Kind="Sheet"]}[Data]

let
  A1Value = Excel.CurrentWorkbook(){[Name="параметры"]}[Content]{0}[столбец],
  Источник = Excel.Workbook(File.Contents("путь к файлу.xlsx"), null, true),
  #"Таблица" = Источник {[Item=A1Value,Kind="Sheet"]}[Data]
in
 #"Таблица"

With ObrazWsh

'       arr = .Range("D12:D81")        ' В таком виде работает, но так как столбец это переменная,то такое написание не подходит.
        arr = .Range(Cells(12, clm), Cells(81, clm)) ' а вот так выдает ошибку.
      For rw = 1 To UBound(arr) Step 2
       ThisWorkbook.Worksheets(shts).Cells(rw + 11, clm) = arr(rw, 1)
      Next rw

End With

Private Sub Workbook_Activate()
MsgBox "привет"
'Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", false)"
    Application.CellDragAndDrop = True
    Application.ScreenUpdating = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
'    DragAndDrop = Application.CellDragAndDrop
'    If DragAndDrop Then Application.CellDragAndDrop = False
    End Sub

Private Sub workbook_deactivate()
'Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", true)"
MsgBox "пока"
Application.ScreenUpdating = True
    ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    Application.CellDragAndDrop = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
        Dim cell As Range
If Not Intersect(Target, Range("STATE_COLUMN")) Is Nothing Then
        On Error Resume Next
        Application.ScreenUpdating = False
        For Each cell In Intersect(Target, Range("STATE_COLUMN"), Cells.SpecialCells(xlCellTypeConstants)).Cells
             If (LCase(cell.Value) <> LCase(cell(1, 2).Value)) Then
                If (LCase(cell.Value) = Range("")) Then
                    With cell(1, 5)
                        .Value = Now
                        .EntireColumn.AutoFit
                    End With
                    End If
                cell(1, 2).Value = cell.Value
            End If
            Next
           End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)    
if Target.Locked = True Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = ActiveCell.Value
End Sub