Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Entering a value in the next empty cell
Sub GetData()
  Do
    NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
    Entry1 = "A"
    Entry2 = "B"
    Cells(NextRow, 1) = Entry1
    Cells(NextRow, 2) = Entry2
  Loop
End Sub