VBA.Mania

With .Cells(.Columns.Rows.Count, Kolumna).End(xlUp)

With Wba.Sheets(1)

End With

.Columns(1).Rows.Count

With .Cells(Kolumna, .Columns.Rows.Count).End(xlUp)

With .Cells(65536, Kolumna).End(xlUp)

'wyrażenie .Cells(Kolumna, .Columns.Rows.Count) - ostatnia celka w kolumnie "Kolumna"
' End(xlUp) - w wyniku wykonania tego polecenia odwołanie do ostatniej nie pustej celki w kolumnie lub pierwszej jeżeli kolumna pusta
With .Cells(Kolumna, .Columns.Rows.Count).End(xlUp)

.Cells(Kolumna, .Columns.Rows.Count)

.Cells(Kolumna, .Columns.Rows.Count).End(xlUp)

Sub DopiszUmowe(NrUmowy As Currency, WbA As Workbook)
Dim Kolumna As Integer, Wiersz

With WbA.Sheets(1)

  '1 pomienięcie zbędnego wyszukiwania
  If NrUmowy > 999999999999# Or NrUmowy < 100000000000# Then
    MsgBox "Numer umowy: " & NrUmowy & "jest nieprawidłowy. Nie zostanie on dopisany do bazy!!!'", vbCritical, "Uaktualnianie Bazy"
   Exit Sub ' chyba brakuje , uzupełniłem
  End If

  Kolumna = Left(NrUmowy, 2) - 9

  'ograniczenie wyszukiwania do jednej kolumny i zastosowanie funkcji arkusza Podaj.Pozycję (w VBA : Match)
  '************************** chyba 8 do 10 x szybciej !!!!!???? niż Find
  On Error Resume Next ' bo funkcja wygeneruje błąd jak nie zostanie wyszukana pozycja
  Wiersz = 0
  Wiersz = Application.WorksheetFunction.Match(NrUmowy, .Columns(Kolumna), 0)
  On Error GoTo 0
  If Wiersz > 0 Then ' funkcja zakończyła poprawnie wartość Wiersz została zmieniona
    MsgBox "Numer umowy " & NrUmowy & " już jest w bazie. Nie zostanie od powtórnie dopisany!!!", vbInformation, "Uaktualnianie Bazy"
    Exit Sub
  End If

  'wyrażenie .Cells(Kolumna, .Columns.Rows.Count) - ostatnia celka w kolumnie "Kolumna"
  ' End(xlUp) - w wyniku wykonania tego polecenia odwołanie do ostatniej nie pustej celki w kolumnie lub pierwszej jeżeli kolumna pusta
  With .Cells(Kolumna, .Columns.Rows.Count).End(xlUp)
   If IsEmpty(.Value) Then ' odwołanie wskazuje pustą celkę
  ' kolumna nie zawiera nie pustych celek więc prawdopodobnie dane nie mają nagłowka więc dane wpisać w tę komórkę
   .Cells(1, 1).Value = NrUmowy
  Else ' dane wpisać do następnej, która jest pusta
   .Cells(2, 1).Value = NrUmowy
  End If
End With

End With
End Sub

Sub DopiszUmowe(NrUmowy As Currency, WbA As Workbook)
Dim Kolumna As Integer

With WbA.Sheets(1)

  '1 pomienięcie zbędnego wyszukiwania
  If NrUmowy > 999999999999# Or NrUmowy < 100000000000# Then
    MsgBox "Numer umowy: " & NrUmowy & "jest nieprawidłowy. Nie zostanie on dopisany do bazy!!!'", vbCritical, "Uaktualnianie Bazy"
   Exit Sub ' chyba brakuje
  End If

  Kolumna = Left(NrUmowy, 2) - 9

  'ograniczenie wyszukiwania do jednej kolumny
  If Not .Columns(Kolumna).Find(What:=NrUmowy, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
          SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
    MsgBox "Numer umowy " & NrUmowy & " już jest w bazie. Nie zostanie od powtórnie dopisany!!!", vbInformation, "Uaktualnianie Bazy"
    Exit Sub
  End If

  .Cells(Application.WorksheetFunction.CountA(.Columns(Kolumna)) + 1, Kolumna).Value = NrUmowy
End With
End Sub

Sub DopiszUmowe(NrUmowy As Currency, WbA As Workbook)
Dim Kolumna As Integer

With WbA.Sheets(1)
  If Not Cells().Find(What:=NrUmowy, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
          SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Is Nothing Then
    MsgBox "Numer umowy " & NrUmowy & " już jest w bazie. Nie zostanie od powtórnie dopisany!!!", vbInformation, "Uaktualnianie Bazy"
    Exit Sub
  End If

  If NrUmowy > 999999999999# Or NrUmowy < 100000000000# Then
    MsgBox "Numer umowy: " & NrUmowy & "jest nieprawidłowy. Nie zostanie on dopisany do bazy!!!'", vbCritical, "Uaktualnianie Bazy"
  End If
  Kolumna = Left(NrUmowy, 2) - 9
  .Cells(Application.WorksheetFunction.CountA(.Columns(Kolumna)) + 1, Kolumna).Value = NrUmowy
End With
End Sub

Sub test()
Dim Wbbaza As Workbook, wbDane As Workbook
Dim a As Long

Application.ScreenUpdating = False
Set wbDane = Workbooks("komornik aktualizacja-nowy.xls")
Set Wbbaza = Workbooks("Baza Umowy - Komornicy.xls")

With wbDane.Sheets("komornik")
For a = 1 To 57975
  Call DopiszUmowe(.Cells(a, 1).Value, Wbbaza)
  Application.StatusBar = a
Next a
End With
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub