With Sheets("YourSheet").Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)
.Value = .Value + 0.02
Workbooks("Acquisition").ActiveSheet.Range("A1:B5").Value = .Value
If I may recommend, always include information about your Excel version, operating system and storage medium in your message. It would be an advantage if you insert a file (without sensitive data) or a photo and use this to explain your project step by step. This way you could get a suggested solution much faster and more accurately and the helper doesn't need to waste his time guessing.