Er celle i område

På min faktura skabelon der skriver jeg varer i B kolonnen.
Når jeg indtaster navnet på en vare undersøger excel ved hjælp af loopslag om jeg her en vare med den beskrivelse jeg har valgt i prislisten. Findes dette returneres den enhed det er og prisen i hver sin koklonne.
Jeg har 5 arke til at skrive regning i, 1 prisliste og 1 timeregner.
Alle ark samarbejder i loopslag.

Du er velkommen til at gå ind i min profil og se de oprettede spm jeg har lavet om min faktura skabelon. Der er en 4-5 stk at se på som inspiration måske:
http://www.eksperten.dk/list/spoergsmaal/220661?start=0
De forefindes både på side 1 og 2.

Du skal vist bare have fat i

ActiveCell.Row
og
ActiveCell.Column

for at få den info du skal bruge?

Hvad med at Excel selv finder næste tomme linje.

'Hvis man glemmer at taste varenummer i formularen.
If txtVarenr.Text = "" Then
MsgBox "Skriv venligst Varenummer."
txtVarenr.SetFocus
'i første tomme celle i kolonne C (undtaget er de første 3 rækker), indsættes varenummer.
'i kolonne G indsættes Antal.
Else
    B = 3
Do Until Worksheets("Kasse").Cells(B, 3) = ""
    B = B + 1
  Loop
Cells(B, 3) = Varesalg!txtVarenr.Value
Cells(B, 7) = Varesalg!txtAntal.Value

Application.ScreenUpdating = False

Foreløbigt resultat:

  Dim SheetNames As Name
  Dim SheetRange As Range
  Dim FoundArea As Boolean
 
  FoundArea = False
  If (ActiveSheet.Name = conSheetInvoice) Then
    On Error Resume Next
    For Each SheetNames In Names
      Set SheetRange = Range(SheetNames.Name)
      If Err = 0 Then
        If Not Intersect(ActiveCell, SheetRange) Is Nothing Then
          If SheetNames.Name = conNamedLines Then
            FoundArea = True
          End If
        End If
      Else
        Err = 0
      End If
    Next
  End If
  If FoundArea = True Then
    Settings.InvoiceLine = ActiveCell.Row
    Load frmSelectItems
    frmSelectItems.Show
  Else
    MsgBox "Du skal stå i området til fakturalinier for at kunne vælge vare", vbCritical + vbOKOnly, "Fejl placering"
  End If

Mit eget forslag blev det anvendte