I am no excel expert but
ActiveSheet.Range("the cell you want to copy eg: A5 ").CurrentRegion.Select
Selection.Copy
ActiveSheet.Range("the cell you want to past to eg: B10 ").CurrentRegion.Select
Selection.Paste
the part about the highlighted cells i am not so sure, but this will do it if you always know where you are pasting to. This is at least a good start, someone else might help you with the other part or you might find it, id suggest recording a macro of selecting a cell for that syntax and then you could mess with it for the desired effect. Sorry i couldnt be more help