Nur zur Info, hier das ganz Makro. 

Private Sub NewEntry_Click()

 Dim COUNT As Integer
 Dim CT As Integer
 Dim DATUM As Date
 Dim ZEIT As Date
 Dim OWNCALL As String
 Dim OWNDMR As String
 Dim OWNFLAG As String
 Dim FREQ As Long
 Dim BAND As String
 Dim MODE As String
 Dim RELAIS As String
 Dim RECE As String
 Dim TRAN As String
 Dim RCALL As String
 Dim RDMR As String
 Dim RFLAG As String
 Dim QUAL As String
 Dim NOTES As String
 Dim REIHE As Integer
 
 If Worksheets("Log-Data").Cells(3, 1) = "" Then
  CT = 1
 Else
  CT = CT
 End If
  
 DATUM = CDate(Format(Now, "dd.mm.yy"))
 ZEIT = CDate(Format(Now, "Hh:Nn:Ss"))
 OWNCALL = Worksheets("Log-Entry").Cells(7, 4)
 OWNDMR = Worksheets("Log-Entry").Cells(8, 4)
 OWNFLAG = Worksheets("Log-Entry").Cells(6, 4)
 FREQ = InputBox("Used Frequency in MHz like 145000,00")
 BAND = InputBox("Used Frequency Band in m like 2m")
 MODE = InputBox("Used Mode like FM, DMR...")
 If MODE = "FM" Or MODE = "DMR" Or MODE = "fm" Or MODE = "dmr" Or MODE = "Fm" Or MODE = "Dmr" Then
  RELAIS = InputBox("Eventually used Relais in FM or DMR...")
 Else
  RELAIS = "none"
 End If
 RECE = InputBox("Received Signal Level")
 TRAN = InputBox("Transmitted Signal Level")
 RCALL = InputBox("Callsign of OM/YL")
 If MODE = "DMR" Then
  RDMR = InputBox("DMR-ID of OM/YL")
 Else
  RDMR = "none"
 End If
 RFLAG = InputBox("Country of OM/YL")
 QUAL = InputBox("Quality of QSO")
 NOTES = InputBox("Eventually Notes to the QSO")
 
 If CT = 1 Then
  COUNT = 1
  GoTo Output
 Else
  Worksheets("Log-Data").Rows("3:3").Select
  Selection.Insert Shift:=xlDown
  GoTo Output
 End If

Output:
 Worksheets("Log-Data").Cells(3, 1) = COUNT
 Worksheets("Log-Data").Cells(3, 2) = DATUM
 Worksheets("Log-Data").Cells(3, 3) = ZEIT
 Worksheets("Log-Data").Cells(3, 4) = OWNCALL
 Worksheets("Log-Data").Cells(3, 5) = OWNDMR
 Worksheets("Log-Data").Cells(3, 6) = OWNFLAG
 Worksheets("Log-Data").Cells(3, 7) = FREQ
 Worksheets("Log-Data").Cells(3, 8) = BAND
 Worksheets("Log-Data").Cells(3, 9) = MODE
 Worksheets("Log-Data").Cells(3, 10) = RELAIS
 Worksheets("Log-Data").Cells(3, 11) = RECE
 Worksheets("Log-Data").Cells(3, 12) = TRAN
 Worksheets("Log-Data").Cells(3, 13) = RCALL
 Worksheets("Log-Data").Cells(3, 14) = RDMR
 Worksheets("Log-Data").Cells(3, 15) = RFLAG
 Worksheets("Log-Data").Cells(3, 16) = QUAL
 Worksheets("Log-Data").Cells(3, 17) = NOTES
 
 COUNT = COUNT + 1
 CT = CT + 1
 
End Sub

evtl. sieht man ja so was gemeint ist... 

mfG
thiro