Copy range from one sheet and paste it on another sheet as a picture

[domleg]

I'm trying to do a simply copy paste from one sheet to another to manage different configuration based on cells that change values. I have a sub "finalize" that will monitor changes and delete the picture and update with new picture if necessary with new configuration information based on what data is filled out.

It was working with code I commented out but I was getting some random "can't paste the data" errors. I am trying to avoid using select statements but failing miserably. Help is appreciated.

If Range("B19").Value = "A" Then
   
    Application.CutCopyMode = False
    pictitle = "ClassA"
    'Sheets("Server Specs").Select
    Sheets("Server Specs").Range("A1:B21").Copy
    'Selection.Copy
    'Sheets("Configuration").Select
    Worksheets("Configuration").Range("K21").PasteSpecial Format:="Picture (JPEG)" 'fails here, I tried many different ways but can't get this to work. Need to copy the cells from "server specs" and paste it as picture because server specs has calculations to it and different range selections based on results.
    'ActiveSheet.Pictures.Paste
    'ActiveSheet.Pictures(ActiveSheet.Pictures.Count).Name = pictitle
    Sheets("Configuration").Pictures(ActiveSheet.Pictures.Count).Name = pictitle
    Sheets("Configuration").Range(currentcell).Select
    Application.CutCopyMode = False
   
    End If

 

[Fluff]

Cross posted Copy range from one sheet and paste it on another sheet as a picture

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.