OK, if you mean D4 even if there is a formula like I suggested in G20 and formatting is irrelevant since you didn't respond specifically to that question, then try something like this.
<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> LCell()<br> <SPAN style="color:#00007F">Dim</SPAN> LR <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, LC <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> <br> LR = Cells.Find(What:="*", After:=Range("A1"), _<br> LookIn:=xlValues, SearchOrder:=xlByRows, _<br> SearchDirection:=xlPrevious).Row<br> LC = Cells.Find(What:="*", After:=Range("A1"), _<br> LookIn:=xlValues, SearchOrder:=xlByColumns, _<br> SearchDirection:=xlPrevious).Column<br> MsgBox Cells(LR, LC).Address(0, 0)<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>