I am trying to establish the end of a range but keep running into an object
error. Below is a bit of code that and the error, "Method 'Range' of object
'_Global' failed.

Dim Drng As Long
Dim RngEnd As String

Drng = ActiveSheet.Cells(Rows.Count, "G").End(xlUp).Row
....
Range("H5").Select
RngEnd = "H" & Drng

Selection.AutoFill Destination:=Range("H5:RngEnd")

Any help is appreciated.