Gracias, ya logré hacerlo, necesitaba que se parará en una celda y definiera el rango de acuerdo a las celdas que tengan datos, lo hice de la siguiente manera:
Dim f1, c1 As Integer
Dim rango As String
Range("A18").Select
c1 = Range(Selection, Selection.End(xlDown)).Count + 17 --> Esto es porque siempre empiezo en la fila 18
f1 = Range(Selection, Selection.End(xlToRight)).Count
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
rango = "=Hoja1!R18C1:R" & c1 & "C" & f1
ActiveWorkbook.Names.Add Name:="Grafico", RefersToR1C1:=rango