VBAで人員管理表を簡単に把握したいのですがどう書けばいいのかわかりません。

ご覧いただきありがとうございます。最近VBAを勉強を始めたばかりで書き方がわからないので記述のしかたを教えていただけると助かります。

VBAで転記元データの東京の人だけを別のファイルの表に人数として転記したいのですがどうすればいいでしょうか？よろしくお願いします。

１ファイルを選択する。（画像の転記元データ）
２別のファイルに転記
３転記した人数分を数字でカウント（重複データはカウントしない）

以下コード

Sub データ取込()

'////////////////////////////////////////////////////////////////////////////////
'　●人員一覧ファイルからデータを作成する
'////////////////////////////////////////////////////////////////////////////////

'取り込むファイルを選択
MsgBox "人員一覧のファイルを選択してください。", vbInformation

'ファイルを選択するダイアログ
impBK = Application.GetOpenFilename("Excelファイル (*.xls?), *.xls?", , "ファイルの選択", , True)

'キャンセルが押されたら終了する
If IsArray(impBK) = False Then End





MsgBox "取込が完了しました", vbInformation

End Sub

質問者からの補足コメント

• めぐみんさん。ご回答ありがとうございます。
  添付の画像が見にくいですが、赤く塗りつぶした所のみカウントして、なおかつ兼務の人は重複しない
  ようにカウントしたいです。兼務は名前の後に（兼）と表示してあります。これが重複の意味です。
  分かりにくくてすみません。
  人員移動があったりしても自動でカウントするようなVBRを組みたいのですが、どうやって勤務地で
  判別できますか？

  
    補足日時：2019/12/06 09:06

• みぐみんさん。回答ありがとうございます。
  画像をもう一度作り直したので見ていただけますか？
  何度もすみません。
  表の赤い所だけをカウントしてそのうちのアルファベットだけ、兼、派遣、パート、コメントでシニアと書かれた物を集計したいです。黄色所は後から追加してもきちんと、別シートの集計表に反映されるような仕組みにしたいです。よろしくお願いします。

  
    補足日時：2019/12/06 21:04

• みぐみんさん。回答ありがとうございます。
  画像をもう一度作り直したので見ていただけますか？
  何度もすみません。
  表の赤い所だけをカウントしてそのうちのアルファベットだけ、兼、派遣、パート、コメントでシニアと書かれた物を集計したいです。黄色所は後から追加してもきちんと、別シートの集計表に反映されるような仕組みにしたいです。よろしくお願いします。

  
    補足日時：2019/12/06 21:04

No.2 回答者： めぐみん_ 回答日時： 2019/12/06 15:48

補足を見て。

正直画像が見えないので何をしたら求める値を取得できるのか不明です。

No.1 回答者： めぐみん_ 回答日時： 2019/12/05 18:13

Ｃ列とＤ列の位置関係（行）が統一されていないし、Ｃ列とＪ列の値も一致していない箇所がある。

さらにはＪ列の他の値がＣ列にどのようにある（雇用形態の区分け？）のかもわからない。
その辺りでちょっと条件出しが厳しいかも知れないかな？

単純にＤ列を上から調べ『東京』の行を求めてその一つ下の行でＦ～Ｈ列に何個名前があるかカウントし、その順番でＱ列に書き込む？
で、『重複って何が？』と感じました。