VBA Code to clear current region

ThisWorkbook.Worksheets("Sheet2").Range("A6").CurrentRegion.Clear

Code to display header from Database

For i = 0 To RS.Fields.Count - 1
ThisWorkbook.Worksheets("Sheet2").Cells(6, i + 1) = RS.Fields(i).Name
Next i