Hi Tom,
Thanks a lot for your help, I tried running by inserting the code but it
didn't work,
Do I insert this code within my original macro or is this a separate macro
which I call from my original macro


Sub ABCD()
k = 5
For m = 1 To 20
With Worksheets("Change")
With .Cells(k + 2, m).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With
Next
End Sub

for the blank line, change
k = k + 3
to
k = k + 4