Need help for excel VBA code

[xainthowell]

Can someone help me with this code. Thanks

Dim LastRow As Long
    Dim PicPath As String
    Dim sb As Worksheet
    Set sb = ThisWorkbook.Sheets("Data")
    
    LastRow = Application.WorksheetFunction.CountA(sb.Range("AK:AK")) + 1
    
    namepic = Sheet2.Range("B" & LastRow).Value
         
    SavePicture imgPhoto.Picture, ThisWorkbook.Path & "\" & namepic & ".jpg"
    PicPath = ThisWorkbook.Path & "\" & namepic & ".jpg"
      
    Sheet2.Cells(LastRow, "AK").Value = PicPath

form_SSEN.xlsb
	B
1	FIRSTNAME
2	SHERWIN
3	CLAIRE
Data

form_SSEN.xlsb
	AK
1	PHOTO
2	E:\SSEN Excel VBA Project\.jpg
3	E:\SSEN Excel VBA Project\SHERWIN.jpg
4	E:\SSEN Excel VBA Project\.jpg
Data

 

[BrianM45]

Hi

Can you explain what you want to do please

Regards

 

[xainthowell]

Hi

Can you explain what you want to do please

Regards

I just want the picture to get the filename from the column B when Update or Save button is click and If I want to save the data and the picture it should be on the next row when I click save button