Excel VBA: How to Extend a Range Given a Current Selection

Question

I want to do something like:

E18-(1,1) &\":\" &E18+(1,1)

My intent is to keep the selection of range E18 (value = B) and