まとめ

Sub 最終行の右下を取得()
  
  '最終行が0以上の場合には、一旦枠外に転記する

  '目的のセルの変数宣言
  Dim 目的のセル As Range
  
  '取得するセルは日付セルの最終行の1段下の右4列目
  Set 目的のセル = Cells(Rows.Count, 2).End(xlUp).Offset(1, 4)
  
  '0以上の数字の場合には、E列35行目に転記
  If 目的のセル > 0 Then
     
          目的のセル.Copy Range("E35")
  
  End If
 
End Sub