Range of cells in SendKeys VBA

[formula_seeker]

Hi guys


You can see the range is A1:A100, I always change this range in below VBA code manually as per need.

I'm using this formula -----"A1:A"&COUNTA(A:A)---in cell H2 to show the range.
I do not know how to change this VBA code to mention the range is in H2 cell rather than using [A1:A100]
I'm using this code to send keys from excel into a private software.

could you please help.

Thanks

<!-- BEGIN TEMPLATE: bbcode_html -->

Sub Test()    
Dim r As Range     
 AppActivate ("ABC")    
For Each r In [A1:A100]      
 SendKeys CStr(r.Value), False  
  SendKeys "~"    
Application.Wait Now + TimeValue("00:00:00")           
  Next r
End Sub