i have this piece of code....

it gets the seeen columns of data from column A and pastes it into column K...
the length of data in column A changes , so this macro can do that ...

here it is ..

Sub select_data()

Sheets("sheet1").Select
Range("k1:k500").Select
Selection.ClearContents

Dim ulhc As String 'upper left hand corner
Dim lrhc As String 'lower right hand corner
Dim wdth As Integer 'true width in columns

ulhc = "$a$6"
wdth = 1



Application.Goto Range(ulhc) 'goto upper left hand corner
ActiveCell.Offset(0, wdth - 1).Select 'move to edge of data (column)
lrhc = Selection.End(xlDown).Address 'get address of lrhc

Range(ulhc & ":" & lrhc).Select
Selection.Copy


Sheets("sheet1").Select
Range("$k$1").Select
' Range("$ad$6").Select
'ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False


End Sub


now what i want to do is this .....

to this macro i want to a piece of code that will take the data from column K
and add to that 0.01%

can some one help me with the code pls.....

sam