I am trying to get a count of non-blank cells so that I can use it as
an input to a range. I have tried the following but it only counts
the cells when I manually type something in the cell, not when I copy.

Set myRange = Range("A1.A65536")
myCount = Application.Count(myRange)

Please advise,