Hi Howard,

Am Fri, 29 Dec 2017 06:37:22 -0800 (PST) schrieb L. Howard:

I tried it like this and the "myCnt =" line errors yellow.

Dim myCnt As Long
With Application
myCnt = .CountA(Range("Cable_1")) - .CountBlank(Range("Cable_1"))
End With

if Cable_1 is a worksheet scope name you must insert the sheet name in
front of the range.

The blank cells are at the end. The end cell could vary but still all blanks will be at the end.

Then try for Cable_1 range name:
=OFFSET(Tabelle1!$C$2,,,MATCH("",Tabelle1!$C:$C,0)-2)


Regards
Claus B.
--
Windows10
Office 2016