Copy pictures that user uploads to a "Database" sheet before clearing form, using VBA

[Aliensrnear]

Good morning everyone,

I am making a new sheet to use at work so that multiple users can record any errors or issues on the production floor into a "log" that can be referenced later. Filling out the text cells and having them transfer, NO ISSUES whatsoever. Something I'm trying to implement is the ability to upload a picture so that we can reference it in the future if we ever run into the same issues. I am able to insert a picture to the three cells, as you can see in the picture I've uploaded with this. What I am needing help on as I'm just kind of lost right now, is how can I copy these pictures and put them into the database? I want to put them in the cells in the same row at the end.

Here is what I have in vba to get the text cells to copy over:
Select Case machine

Case "Trumpf Laser"

Range("A3:AB3").Copy
Sheets("Trumpf Database").Select

Do While (IsEmpty(Range("A" & emptyrow))) = False
emptyrow = emptyrow + 1
Loop

Range("A" & emptyrow).PasteSpecial Paste:=xlPasteValues
Range("A" & emptyrow).PasteSpecial Paste:=xlPasteFormats

Sheets("Main").Select


ClearForm

I will mention that I am fairly new at VBA in general, and one of my biggest obstacles in this has been copy and pasting. I can never figure out a .paste command or something that will work that easy. I appreciate any thought or help with this! Let me know what you think.

*I am having difficulty uploading images to this website. Hopefully I'm allowed to post a link to get around this:

excel-1 hosted at ImgBB

Image excel-1 hosted in ImgBB

ibb.co

excel-2 hosted at ImgBB

Image excel-2 hosted in ImgBB

ibb.co

What is the file size max? It says my images are too large, but they are less than 600kb each.

 

[Aliensrnear]

Also! This is what I have in my ClearForm Sub:

Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Set xRg = Range("A5:AA6")

For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.delete
Next

This is deleting the pictures on the main page and clears the form perfectly! I've tried using this in the Submit sub with some adjustments but have been unsuccessful in copy/pasting.