TCCP Macro

Hi all ,

can you any one answer my question , i have pasted my macro and in bracket i have given what changes i need .

1.(in Macro it showing 2to3 but i want to select row ,in how many row values are there it may be 5 or it may be 8
2.want to copy available row(not "A2:A170"
3.want to copy available row(not "A2:C170"

For v = 2 To 3 (in Macro it showing 2to3 but i want to select row ,in how many row values are there it may be 5 or it may be 8 )
Sheets("TCCP").Select
Cells(v, 1).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Cct").Select
Range("A2:A170").Select ( want to copy available row(not "A2:A170" )
ActiveSheet.Paste
Sheets("cct").Select
Range("A2:C170").Select ( want to copy available row(not "A2:C170" )
Application.CutCopyMode = False
Selection.Copy
Sheets("A-TCCP").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next v