title: Determine which cell is active
body: <p>I want to allow the user to click a button to copy information from column A, enter it in an IBM Personal Communications emulator, then, when they fill out that row of the data, press the button again to go back to column A and down to the next row.</p>
  
  <p>This is what I have so far:</p>
  
  <pre><code>Option Explicit
  Sub NextClaim_Click()
    Dim IDNum As String, Row
    Dim Emulator As Object
  
    ' Setting up the IBM Personal Communications emulator
    Set Emulator = CreateObject("pcomm.auteclsession")
    Emulator.SetConnectionByName ("A")
  
    ' Initial row that user starts macro on
    Row = ActiveCell.Row
  
    ' Get info from first row in column A (ex. A2)
    IDNum = Range("A" &amp; Row).Value
    ' Pull up info in IBM Personal Communications emulator
    Emulator.auteclps.SendKeys "ret,i" &amp; IDNum &amp; ",m", 2, 2
    Emulator.auteclps.SendKeys "[enter]"
  
    ' If the last active cell that the user entered data in
    ' is not the the current row in column A (ex. A2), then
    ' add 1 to Row and go to the next row in column A (ex. A3)
    If ActiveCell.Range("A" &amp; Row) = False Then
      Row = Row + 1
      Range("A" &amp; Row).Activate
    End If
  
  End Sub
  </code></pre>
  
  <p>I don't want the macro to go to the next row if the active cell is in column A when the button is pushed.</p>