Sub ki124()
Sheets("Sheet1").Select
   Range("A4").CurrentRegion.Select
    cel1 = Selection.Cells.Count
    cel2 = Selection.SpecialCells(xlBlanks).Count
     Range("A1").Select
Sheets("Title").Select
   MsgBox "Sheet1のデ−タベ−スへの入力済みデ−タ数は" & Chr$(10) _
  & cel1 - cel2 & "個です (全デ−タ数" & cel1 & "個)"

End Sub