Como copio y pego datos de una hoja a otra

Private Sub CB5_Click()
Worksheets("Historial_de_Compra").Activate
ActiveSheet.Range("A2").Activate
Cantidad = Worksheets("Venta").Range("K7:K50,L7:L50").Copy
'Buscar la primera celda vacía de la columna A y convertirla en activa,mientras la celda activa no este vacía cambiar o recorrer la celda activa hacia abajo
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
With ActiveCell
.Value = .PasteSpecial
Application.CutCopyMode = False
End With
ActiveCell.Offset(1, 0).Activate
Worksheets("Venta").Range("K7:K50,L7:L50,M7:M50,N7:N50,U7,U17,U18,U57").ClearContents
z = 0
UserForm3.Hide
End Sub

Mi macro anterior es para copiar ciertos rangos de celdas de una hoja a otra, su función es hacer un listado( El historial de compra de una simulación virtual).

Mi problema es que al ejecutarla en la primera celda aparece la palabra verdadero, en las demás celdas si me sale la información que corresponde pero cada vez que ejecuto la macro en la primera me substituye el dato correcto por la palabra verdadero y necesito saber como hacer para que no ocurra esto, es decir, que no aparezca la palabra verdadero, simplemente que aparezca el dato correspondiente.

Espero y puedan asesorarme