ピボットテーブルの元データを返すユーザーフォームを作成したい

Question

ピボットテーブルの月次推移表を作りました。
各セルをクリックすると、元のデータベースの書かれた
ユーザーフォームが出てくるようにしたいのですが、
どう表記したらよいでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const ROW_START = 5
    Const COL_DATE = 3
    Const ROW_END = 200
    Const COL_DEND = 14
    
    
    'コピペ中は邪魔になるので呼び出さない
    If Application.CutCopyMode Then
        Exit Sub
    End If
    
    If Target.Value <> 0 And Target.Column >= COL_DATE And Target.Row >= ROW_START And Target.Row <= .Cells(Rows.Count, 2).End(xlUp).Row And Target.Column <= COL_DEND And Target.Cells.Count = 1 Then
        
        Call UserForm.Show(Target)
    End If