Copying Rows Between Two Specific Cells

Macro written below gathers information from the source xls documents (which are located at "D:anetdata" ) and copy a new file ( located at "D:anet arih" ) according to different contents of two cells. Unfortunately macro copies solely Column A. But I want to copy entire rows between those cells. For example, if A400 contains "Days with most messages" and A500 contains "Subjects with most answers" , this macro copies cells between A401 and A499. But I want to copy entire rows between 401 and 499.

Sub EvrenYurdakuloglu()
Dim DosyaDuzeni As Variant
Dim GuncelSayfaAdi As String
Dim Hucre As Range
Dim ikinciAranan As String
Dim ilkAranan As String
Dim ilkDosya As Variant
Dim ilkSatir As Long
Dim islemAdedi As Long
Dim i As Long
Dim KlasorunYolu As Variant
Dim KlasorYolundakiDosyalar As Variant..................