Copiar Datos de una hoja a otra, según Fecha

Hace rato que estoy intentado hacerlo, no tengo mucho conocimiento aquí, ya que esto lo vi hace 3 años, en un ramo y no pasaron mucho, en fin, si alguien pudiese ayudarme.

Tengo dos hojas, Ventas y Pago

Y según la fecha de pago, quiero que me copie los datos a la hoja de Ventas.

Si o si dependerá del rango de fecha, en concreto seria que, seleccione mediante 2 textview la fecha 1 y 2, que seria por ejemplo 01-01-2018 a 31-01-2018, con el filtro, traiga todos los pagos efectuados en ese intervalos de fechas y los pegue a la hoja Ventas, donde solo traiga ciertos valores.

Hoja Pagos (con todos los datos)

Hoja Ventas (hoja donde traer/pegar los datos)

llegue hasta el filtro:
Private Sub CommandButton1_Click()
Dim fecha1 As String
Dim fecha2 As String
fecha1 = TextBox1.Value
fecha2 = TextBox2.Value
fecha1 = Format(fecha1, "dd/mm/yyyy")
fecha2 = Format(fecha2, "dd/mm/yyyy")
Sheets("Financiamientos").Select
ufila = Range("B2" & Rows.Count).End(xlUp).Row
col = Range("B").Column

Más no se como aplicarlo. Si alguien pudiese ayudarme