Add text 5 rows beneath last occupied

[emukiss10]

Hello everyone!

I'd like to have an addition to my VBA script that will look for last entry in column C, and put text 5 rows below that entry. The same in column H. I like to have dots "......................." and text below dots - "Sign here" or something like that :



........................................................
Please sign here


please help.

best regards
W.

 

[Fluff]

How about

Sub Adddots()

   With Range("C" & Rows.Count).End(xlUp).Offset(6)
      .Value = String([COLOR=#ff0000]30[/COLOR], ".")
      .Offset(1).Value = "Please sign here"
   End With
   With Range("H" & Rows.Count).End(xlUp).Offset(6)
      .Value = String([COLOR=#ff0000]30[/COLOR], ".")
      .Offset(1).Value = "Please sign here"
   End With

End Sub

Change the numbers in red to reflect the number of dots you want.