Range dinâmico fácil sem DESLOC (VBA)

Abra seu arquivo.

Apert Alt+F11

Menu Inserir / Módulo

De qualquer nome

Duplo clique no módulo criado

Copie o código abaixo e cole no seu módulo

Function Coluna(Tabela As String, Nome As String) As Range

    Dim i As Integer

    Dim nmCell1 As String

    Dim nmCell2 As String

    Dim numCols As Long

    Dim numLins As Long

    numCols = ThisWorkbook.Worksheets(Tabela).UsedRange.Columns.Count

    numLins = ThisWorkbook.Worksheets(Tabela).UsedRange.Rows.Count

    For i = 1 To numCols

        If UCase(ThisWorkbook.Worksheets(Tabela).Cells(1, i)) = UCase(Nome) Then

             nmCell1 = ThisWorkbook.Worksheets(Tabela).Cells(2, i).Address

             nmCell2 = ThisWorkbook.Worksheets(Tabela).Cells(numLins, i).Address

            Set Coluna = ThisWorkbook.Worksheets(Tabela).Range(nmCell1 & ":" & nmCell2)

            'Exit For

        End If

    Next

End Function

Pode salvar e feixar.

Agora sempre que você quiser se referenciar a uma coluna da sua base de dados (Excel claro) use a função coluna Coluna.

Exemplo: