Meldoc code explaination. for Experts. Help!!!!

[pedie]

Meldoc prepapred this code:
Please expplain how this code works each line. Thanks alot!!!



Sub Pedie()
With Sheet1
lr = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
If .Cells(i, "D").Value >= .Cells(2, "H").Value Then
.Range("A" & i & ":G" & lr).Copy Sheets("Home").Range("A1")
Exit For
End If
Next i
End With
End Sub

 

[VoG]

What exactly do you not understand?

I don't really understand what this code is meant to do since it copies everything to A1. Don't you want it copied to the next free row?