Copy Paste to a range

[niha]

Hi guys!
I want to find the last filled cell in column H, then find the last filled cell in column E i.e the date and paste it till column H's last filled row in column E. I am not able to fill all the cells in the range. I attached the copy of how I want it in the sheet.

Using this

Sub copynow()
   Cells(Rows.Count, "H").End(xlUp).Select
   a = ActiveCell.Row
   ActiveCell.Offset(0, -3).Select
   Cells(Rows.Count, "E").End(xlUp).Select
   ActiveCell.Copy
Cells(Rows.Count, "H").End(xlUp).Select
ActiveCell.Offset(0, -3).Select
ActiveSheet.Paste
End Sub

 

[AlphaFrog]

Sub copynow()
    Range(Cells(Rows.Count, "E").End(xlUp), Cells(Rows.Count, "H").End(xlUp).Offset(0, -3)).Value = _
        Cells(Rows.Count, "E").End(xlUp).Value
End Sub

 

[niha]

Thanks A lott!!
This is Perfect!
Need some more help on this though. So basically I wanted to sort everything from D:H based on these dates which is why I needed them to be copied in the first place.
Like everything in rows of date 5/12/21 must be above 5/13/21 dates. Something like this.

 

[AlphaFrog]

Sub copynow()
    Range(Cells(Rows.Count, "E").End(xlUp), Cells(Rows.Count, "H").End(xlUp).Offset(0, -3)).Value = _
        Cells(Rows.Count, "E").End(xlUp).Value
        
    Range("D:H").Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess
    
End Sub

 

[niha]

Works Perfect! Thanks a lot!