Use Header value instead of column number or column value in cell/range referencing?

[Sum]

I have data in four columns
Prob1: I need to have a reference of last row in column 3
Below can be used
lRow = .Cells(.Rows.Count, 3).End(xlUp).Row

But i would like to remove the hardcoding and use the value of header in column 3 i.e. "H3" in attached sheet.

Prob2: while setting a range i used columns while i would like to replace it by the header name. i.e. "H2" in attached sheet
Set rngData = .Range("B2:B" & lRow)


Could someone please help with above 2 referencings so that whereever in the table the two columns appear, it will still refer them correctly? Thanks in advance.

[CheeseSandwich]

Maybe something like:

Please Login or Register  to view this content.

[Sum]

this worked for problem 1 for column C

How to use these in setting Range? (as mentioned for prob 2 using column B):

Prob2: while setting a range i used columns while i would like to replace it by the header name. i.e. "H2" in attached sheet
Set rngData = .Range("B2:B" & lRow)


solution:
Sub Maybe()
Dim rng As Range
Set rng = Cells(2, Rows(1).Find("H2").Column).Resize(Cells(Rows.Count, Rows(1).Find("H2").Column).End(xlUp).Row - 1)
rng.Select
End Sub


Thank you for solution for first part.