Macro to copy data

[howard]

I have numbers in Col B followed by a full stop eg 1. 20. etc


I have tried to write code to copy the value in Col K that corresponds with 30. (same row) in Col B to Col K that corresponds with 25. in Col B same row


For eg the value in col K for 30. is K40 and the value is 108,965 and this must be copied as a value using paste special values in Col k in the same row as 25.

I get paste special class failed when running my macro


See my code below

it would be appreciated if someone could amend my code

 Sub Compute_Opening_inventory()

Dim lRow As Long, I As Long
lRow = Cells(Rows.Count, 11).End(xlUp).Row
For I = 1 To lRow
If Left(Cells(I, 1), 3) = "30." Then
   Cells(I, 11).Copy
End If
If Left(Cells(I, 1), 3) = "25." Then
    Cells(I, 11).PasteSpecial xlValues
   Application.CutCopyMode = False
    
End If
Next

End Sub

 

[Michael M]

can you post a sample....what you have provided is confusing...at least to me anyway !!

 

[howard]

Thanks for the reply Michael

Book1
	B	C	D	E	F	G	H	I	J	K	L	M
1	25.	Finished goods									987,145
2
3
4	27.
5	28.
6	29.
7	30.	Finished goods									920,250
Sheet1

in this example, I want to copy K7 which is in the same row as 30. in Col B to K1, which in same row as 25. in Col B

 

[howard]

Hi Michael


Have you had a chance to look at the sample data I posted ?

 

[Michael M]

No, not really.....but on quick inspection, I'm assuming you mean Col L no Col K ???
AND
the value in "30." should overwrite the value in "25." ??

 

[howard]

Thanks for the reply


My apologies

You are 100% correct. It should be Col L and the value in "30." should overwrite the value in "25."