Copiar información sin borrar existente, adicionalmente no copiar filas en blanco

No soy el mas experto y apenas estoy iniciando, tengo el siguiente código y deseo que me copie la información en la ultima fila donde no hayan datos, adicionalmente que no me copie las filas que no tengan datos, mil gracias Team.

Sub Copiar_Datos()

'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
    WsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range

'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("FR_Compras")
Set wsDestino = Worksheets("BD_Compras")

'Indicar la celda de origen y destino
Const celdaOrigen = "C12"
Const celdaDestino = "A2"

'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub